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ABSIKACT 


The  maintenance  of  consistency  In  a  aistrioutea  aat^case 
system  environment  presents  a  number  ot  vexing  oroolems  to 
tne  dataoase  system  designer.  Inis  is  more  so  tne  case  #nen 
tne  dataoase  system  contains  replicated  aata  ana  is  also 
deslqned  to  provide  a  nigh  aearee  of  avaiidDility  under 
conaitions  ot  networx  partitioning 

This  thesis  investigates  tne  use  of  a  proposed  adaptive 
concurrency  control  algorltn^i  as  a  possioie  alternative 
solution  for  a  numoer  of  the  propiems  facing  tne  dataoase 
system  designer  in  the  areas  ot  concurrency  control, 
partitioned  ner*oncs,  and  long-liveo  transactions. 
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X.  lNTSCJUCIlOtt 


A  fundamental  concept  tor  oatauase  systems  is  the  notion 
of  consistency.  If  a  database  is  viewed  as  a  set  oi  oata 
objects  whicn  are  related  in  some  way,  ano  it  these 
relationsnlps  are  viewed  as  assertions  about  the  oojects, 
then  a  database  Is  considered  consistent  only  it  it 
satisfies  all  integrity  assertions.  Transactions  which 
enter  the  database  system  and  read  or  alter  tne  values  in 
data  oojects  are  said  to  move  tne  datacase  from  one 
consistent  state  to  another.  Thus,  tne  transactions, 
comprised  of  a  set  of  atomic  actions  are  considered  units  of 
consistency.  Since  the  transaction's  atomic  actions  cannot 
execute  at  precisely  tne  same  instant  m  time,  the  dataoase 
can  become  temporarily  inconsistent.  Moreover,  concurrent 
execution  can  cause  the  dataoase  to  oecome  Inconsistent. 
Therefore,  to  insure  database  consistency,  a  concurrency 
control  mechanism  is  requlreo. 

Tne  main  tasx  for  a  concurrency  control  mechanism  is  to 
insure  tne  ser ializabllity  of  transaction  execution.  it  all 
of  the  transactions  in  a  database  system  were  to  execute 
serially,  that  is  one  right  after  another,  consistency  would 
be  insured  as  no  transaction  could  intervene  in  another's 
execution  cycle.  If  a  set  or  transactions  execute 
concurrently  and  tne  result  of  t.nat  execution  is  equivalent 


to  the  result  ODtained  from  some  sequential  execution  or  t re 
same  set  of  transactions ,  tne  execution  Is  saia  to  ce 
serializable  [13.  Seriallzacle  execution  of  transactions  is 
sufficient  to  insure  consistency  in  a  dataoase  system.  Any 
execution  sequence  which  cannot  be  serialized  must  not  oe 
allowed. 

Tne  mechanism  for  concurrency  control  *e  investigate  is 
a  proposed  adaptive  concurrency  control  algorithm  oasea  on 
an  optimistic  strategy  for  insurtnq  dataoase  consistency, 
badal  C2,33.  A  transaction  scneme  enipioyinq  suDtransactions 
with  related  atomic  actions  provides  the  transaction  moael 
tor  tne  algoritnm,  Tne  proposed  algorithm  is  oroviaeq  m 
Appendix  A. 

For  a  aistriouted  dataoase  system,  tne  Dartitioneo 
network  environment  introduces  some  difficult  problems.  a 
network  partition  occurs  when  two  or  more  ais Joint 
collections  of  nodes  cannot  communicate  Detween  tnemseives 
even  thougn  noaes  in  a  given  suoset  of  tne  network  are 
operational ,  In  a  database  system  w-iic.n  croviqes  some 
degree  of  avaixaollity  in  the  face  of  network  partitioning, 
tnis  situation  can  completely  destroy  mutual  consistency. 
As  a  result,  most  solutions  to  tnis  problem  Droviae  a  less 
than  desirable  degree  of  data  availaciiity  *nlle  operating 
in  the  partitioned  moae.  Because  we  consider  avalidoility 
of  data  just  as  important  as  consistency  for  a  oistr lr-uteu 
system,  and  since  tne  proposed  algorithm  proviaes  varylnc 
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degrees  of  availability  while  maintaining  mutual 
consistency,  we  extend  the  algorithm  to  achieve  a  solution 
for  the  problem  of  the  partitioned  network  and  analyze  its 
usefulness  as  a  possiDle  solution  to  tnat  problem. 

The  transaction  concept,  which  nas  gained  wioe 
acceptance  in  sucn  areas  as  airline  reservations,  electronic 
fund  transfers  and  car  rental  applications,  does  not  in 
Itself  place  any  limitations  on  tne  duration  of  transactions 
in  a  system,  in  this  regard,  tnere  are  some  interesting 
parallels  between  tne  netlon  of  a  long-livea  transaction  as 
Introduced  by  Gray  [4]  and  tne  notion  of  temporary  cata 
states  which  is  contained  In  tne  proposal  for  tne  adaptive 
concurrency  control  algorithm.  The  parallels  oecome  more 
pronounced  once  the  algorithm  is  consiaerea  in  tne  context 
of  a  concurrency  control  mechanism  operating  unaer  net*or< 
partitioning,  we  analyze  this  situation  in  this  tnesis  with 
the  nope  of  snedaing  some  liant  on  tne  subject. 

Chapter  2  Is  a  summary  of  methods  previously  oroposeu  as 
possloie  solutions  to  tne  aforementioned  orociems  sealing 
with  tne  maintenance  of  consistency  in  a  database  system. 
Chapter  3  introduces  tne  transaction  model  ana  tne  proposed 
algorithm.  In  cnapter  4  we  extena  tne  algorithm  to  tne 
network  partition  environment  and  discuss  its  application  to 
long-lived  transactions.  In  cnapters  b  and  o  we  oroviae  an 
implementation  of  tne  algorithm  as  well  as  test  results  for 
different  scenarios,  eg,  for  various  classes  cf 


y 


transactions,  aitferlng  dearees  ot  conflict  rates,  ai tier er.t 
complexities  ot  non-serializaoie  execution,  etc. 
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II 


pre-vicus  * qrk  in  thesis  subject  ahlaj 


A.  INTRODUCTION 

In  tnis  chapter  *e  discuss  some  Drior  procosals  wnic.n 
nave  teen  lntroaucea  as  possible  solutions  to  toe  problems 
of  concurrency  control,  network  partitioning,  ana  iona-iivea 
transactions ,  In  looxinq  at  concurrency  control  *e  are 
particularly  interested  in  metnoas  wnicn,  wnile  insuring  a 
consistent  oataoase,  could  also  easily  aaapt  to  the  ever 
changing  database  environment .  m  tnis  regard,  *e 
discovered  tnat  there  was  a  paucity  or  metnoas  *r.icn 
provided  any  significant  measure  of  riexibiiity  for  either 
the  database  designer  or  tne  dataoase  user, 

wnlle  anaiyzing  metnoas  for  aeallny  * ith  oartitioneo 
network  environments  *e  are  most  lnterestea  in  solutions 
whlcn  allow  for  non-stop  operation  in  ail  partitions  at  ter 
networK  partition,  Three  solutions  in  tnis  area  proven  most 
attractive  and  provided  some  insignt  towaras  tne  extension 
of  tne  proposed  algorithm  to  tne  partitioned  environment. 

At  present,  very  little  nas  been  written  aoout  tne 
long-lived  transaction  problem  in  aataoase  systems.  we 
tneretore  present  some  thougnts  on  tne  subject  oy  Gray  Li J 
and  maxe  an  attempt  to  analyze  these  concepts  m  light  of 
tne  proposed  aigoritnm. 
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CONCURRENCY  CONTROL 

Two  pnase  locking  requires  a  transaction  to  acquire  a 
lock  on  every  data  ooject  It  win  access  oefore  any  of  tr.e 
loc<s  are  released.  Tnis  reduces  the  availaciiity  of  the 
data  oojects  as  some  of  the  data  oojects  locx.ec  oy  the 
transaction  could  have  oeen  open  to  reaas  or  upuaces  while 
tne  transaction  *as  executing  at  ether  aata  oojects.  in  is 
metnod  also  has  an  adverse  effect  on  tne  level  ot  concurrent 
execution  which  is  experienced  Dy  tne  transaction.  Inis  is 
true  because  no  portion  of  the  transaction,  however  disjoint 
it  may  ee  from  other  components  of  tne  transaction,  is 
allowed  to  execute  in  tne  system  until  every  data  ooject  is 
locked,  tiowever,  when  two-pnase  locking  is  compinea  *itn  a 
two-pnase  commit  policy  suen  tnat  commit  occurs  at  tne  ?nc 
of  transaction  execution,  a  simoie  recovery  metnoc  for 
transactions  Is  provided. 

Time  stamps  provide  a  second  strategy  tor  concurrency 
control  in  a  aistritutea  dataoase  system,  u'naer  this 
strategy,  transactions  are  required  to  execute  in  tne  oner 
of  tnelr  time  stamos.  rime  stamps,  in  conjunction  with  a 
two-onase  commit  policy,  can  oe  almost  as  restrictive  as  tne 
two-pnase  locking  scheme  in  regards  to  aata  ooject 
availaolllty  ana  concurrency  of  transaction  execution. 
Moreover,  the  lack  of  glooal  system  knowledge  at  net«or< 
partition  provides  tne  time  stamp  solution  witn  nigntmarisn 


problems  at  merge  time  as  consider  'tion  must  be  given  co  ;;>e 
differences  in  time  stamp  assignment  amonq  ail  tr.e  corn-outers 
in  tne  system.  Neither  t*o-pnase  locking  r.cr  ti*e  stamps 
provide  a  general  solution  to  tne  iong-livea  transaction 
problem  as  neltner  provides  a  mechanism  wnicn  can  mexe  a 
distinction  between  data  wnicn  is  permanent  ana  data  *mcr. 
is  temporary, 

A  strategy  tor  concurrency  control  wnicn  seems  to  oe 
gaining  in  popularity  is  called  optimistic  cecause  it  treeiy 
allows  transactions  to  execute  witnln  tne  system  and  insures 
that  tne  results  ot  execution  are  serializable  at  tne  data 
ODject  ltseit.  Inis  strategy  is  cased  on  tne  assumption 
tnat  tne  conflict  rate  at  a  given  aata  ooiect  is  low  cecause 
tne  portion  of  tne  aatacase  accessed  at  any  one  time  oy  the 
atomic  action  ot  a  transaction  is  small,  l.e.,  tne  locx 
granularity  is  small,  Ullman  ISJ,  Since  ip  nas  oeen  snown 
tnat  in  many  real-life  applications  tr.e  prooaoility  of 
conflict  is  low,  several  proposals  tor  optimistic 
concurrency  control  have  been  puoilshed.  For  a  centralized 
database,  hung  and  Roclnson  nave  proposed  a  solution  ioj . 
rnis  approach  was  elacorateo  on  by  Ceri  ana  bwicxi  t/J  ar.d 
applied  to  a  nistnouted  dataoase  system.  daaai  !!,i] 
descrioed  a  different  approach  utilizing  an  aiaoritnm 
Intended  for  use  in  a  aistributeo  system.  It  is  tnis  last 
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approach,  extended  by  3aaal  ana  MCElyea  tbj  •*ric:i  ■*.*? 
invesltqate  for  partitioneo  networx  execution  ana  iorg-iivea 
transactions . 

C.  NETWORK  PARTI  HONING 

1 «  One  Partition  Solutions 

Tnere  are  numerous  solutions  allowing  one  partition 
operation  in  tne  event  the  networx  experiences  oartiticning . 
Since  these  solutions  restrict  avaiiaDiiity  to  an 
unacceptable  degree,  we  spena  little  tine  on  their  analysis. 

Examples  of  tnese  methods  are  :  voting,  toxen 
passing  and  primary  sites.  In  voting  eacn  site  is  assigned 
a  weignt  or  number  of  votes,  when  a  partition  occurs,  tne 
sites  in  the  partition  wltn  tne  most  votes  are  tne  sites 
which  can  process  transactions  witn  the  least  restrictions. 
Sites  in  other  partitions  can  process  reaa-oniy  type 
transactions,  with  toxen  passing  each  aata  od j  ect  nas  a 
totcen  associated  with  it  *nlcn  moves  from  site  to  site, 
when  a  partition  occurs,  tne  site  witn  tne  toxen  for  a  aata 
Object  may  update  that  aata  ooject.  Primary  sites  is  an 
approacn  where  eacn  data  object  nas  a  site  assignea  to  it 
wnich  is  responsible  for  a  data  object's  activities.  At 
partition  time,  if  a  transaction  is  executed  in  a  oartition 
tnat  contains  ail  tne  data  objects  in  its  read  and  write 
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sets,  the  exe*ution  is  allowed.  utner*lse,  only  ream 
operations  are  oerraltted, 

Each  strategy  attempts  to  maKe  tne  upaatmc  or  uata 
objects  site-specific  according  to  a  set  of  rales  and 
constraints,  since  the  methods  restrict  activity  Casually 
updates)  in  seme  partitions,  data  availaolilty  is  oecreasec, 
Consistency  preservation  varies  trom  .metnoa  to  metnoa.  in 
voting,  consistency  is  easy  to  maintain  *itn  a  nign  cost  m 
avaiiaoility  as  only  tne  partition  *ltn  tne  most  votes  car. 
perform  update  operations  on  data  objects.  This  oearee  of 


preservation 

is 

not 

the  case 

*  1  cn 

tr.e  p 

r  iivary 

u  i  tes 

strategy,  « 

nlch 

is 

similar 

to 

tne 

to<en 

net  nod , 

a  s  tne 

primary  site 

for 

updates  could 

be 

involved  in 

a  nard 

c  r  a  s  n 

and  an  alternate  site  is  aesiyratee  as  a  oacKup,  Over  all, 
each  of  tnese  methods  tali  short  ot  a  general  solution  to 
the  desirability  or  achieving  «?  reesor.aole  balance  cet*een 
Insuring  consistency  in  a  aatabase  ana  providing  a  nign 
degree  of  availaciiity  at  all  sices. 

2.  Multi-Partition  Solutions 

Approaches  to  tne  partitioning  Drooler,  nave  oeer 
suggested  wnereoy  consistency  is  maintained  tnrougneut  tr.e 
system  and  increased  availaolilty  is  provlcea  at  any  given 
site. 

Parxer  ana  Ramos  19]  propose  a  metnoa  v*r.icn  tfouia 
utilize  a  log-filter  ana  version  vector  seneme  to  aetect 
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multiple  file  joint  consistency.  Tnis  prooosai  addresses 
tne  automatic  aetection  of  mutual  inconsistencies  at  tne 
file  level  and  at  the  partition  merge  interface.  it  ao es, 
nowever,  rely  on  user  intervention  curing  processing  tc 
decide  on  a  course  or  action  once  certain  types  or  conflicts 
are  detected.  In  addition,  tnis  approach  allows  tor  some 
low  level  of  inconsistency  to  exist  in  tne  file  system  tor 
snort  periods  of  time  after  a  transaction  nas  in  tact 
committed . 

An  approacn  lnvoivlnq  semantic  Knowledge  aocut  tne 
dataoase  applications  -as  proposed  cy  Faissol  [1JJ.  rive 
classes  of  semantics  spanning  tne  most  simple  operation  to 
tne  most  complex  are  usea  to  alio-  updates  in  independent 
partitions.  Each  class  snares  a  common  merge  algorithm 
wnich  can  be  tailored  to  a  particular  application  cy  tne 
application  programmer.  At  present,  of  tne  croposeo 
solutions  to  tne  partitioning  prooiem,  raissoi's  approach 
seems  to  oe  tne  most  interesting  ana  complete.  me  aces, 
nowever,  assume  that  a  concurrency  control  mechanism,  exists 
wnicn  will  insure  consistency  in  eacn  mdlviouai  partition 
during  periods  of  network  partition,  Tne  most  attractive 
feature  in  tne  proposal  is  tnat  users  may  operate  tne  system 
under  partitioning  in  a  manner  -men  assures  reconciliation 
can  De  performed  automatically  at  merge  time, 

A  metnod  for  automatic  control  of  consistency  and 
dataoase  aata  object  reconciliation  -nicn  relies  on  tne 


manipulation  ot  precedence  graphs  is  proposea  in  =r essn i 


111].  In  this  approach#  use  is  maoe  ot  raissol's  ror~ai 
definition  of  correct  partitionea  moae  operation.  Partition 
logs  are  utilized  to  store  information  necessary  tor  use  cy 
a  partition  merge  algorithm.  Transaction  activity  is  stored 
in  these  logs  ahicn,  at  merge  tine,  are  convertea  into 
precedence  graphs,  rnese  grapns  are  inspected  to  insure 
tnat  a  resultant  g local  schedule  ot  transaction  execution  is 
serializaoie  for  all  partitions. 

with  tnese  paoers  as  cacxgrouna,  in  chapter  *t  v.e 
investigate  our  proposed  adaptive  concurrency  control 
algorithm  as  a  possioie  candidate  for  the  concurrency 
control  mechanism,  during  normal  system  operation,  *niie  tne 
system  is  partitioned,  and  at  partition  merge  time.  «e  so 
tnls  investigation  In  tne  nopes  tnat  it  nay  provide  w nat 
seems  to  be  a  more  general  solution  to  tne  net  or  < 
partitioning  problem, 

0,  LONG-LIVED  TRANSACTIONS 

Gray  [4J  Introduces  transactions  which  can  persist  in  a 
system  for  long  periods  of  time  oetore  they  commit .  Ir.ese 
transactions  may  nave  lifetimes  tnat  can  be  measured  in  cays 
or  wee<s .  for  instance,  applications  suer,  as  travel, 
insurance  and  escrow  commonly  nave  transactions  *nose 
durations  span  suen  time  frames.  Gray  envisages  solutions 
to  long-lived  transaction  situation  as  having  to  accept  a 
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lower  degree  ot  consistency  wl tn.in  tne  dataoase.  />e  icc*  to 
an  extension  of  tne  prooosea  algorithm  as  a  poss-icie 
concurrency  control  mecnanism  for  long-lived  transactions. 
Inis  mecnanisni  should  not  require  tne  acceptance  ot  a 
lower  degree  of  consistency  in  tne  handling  of  tnese  tyoes 


of  transactions 


Hi.  TRANSACTION  MODEL  AND  TnF  PROPOSED  ALGOR  I'l 


A.  DESCRIPTION  UF  THE  TRANSACTION  M  U  D  c.  L 

Tnis  section  descriDes  the  transaction  model,  tr.e 
components  of  the  concurrency  control  mecnanisn.  and 
transaction  execution  under  concurrency  control. 

Eacn  transaction  enters  ana  exits  tne  aistrlcuteo  system 
at  one  site,  called  tne  initiating  site,  it  is  composed  of 
one  or  more  atomic  actions  eacn  of  wnicn  Performs  eitner  a 
read  or  an  update  on  a  slrgie  data  ooject.  Interdecenaenr 
atomic  actions  are  groupeo  into  suDtransactions .  Tne 
suDtransactions  may  execute  concurrently  or  sequentially. 

A  conflict  history  is  a  part  or  eacn  transaction  curing 
its  execution.  This  nistory  is  a  record  or  tne 
transaction's  conflicts  with  otr.er  transactions.  conflict 
is  detinea  as  occurring  whenever  two  transactions  execute 
any  comDlnation  of  read  or  update  of  tne  same  data  ooject 
except  read-reaa.  The  conflict  nistory  is  upoateo  nth 
information  nelo  at  eacn  data  ooject  visitec  oy  tne 
transaction.  Tnis  information  is  held  in  a  log  (do  Log). 
The  DO  Log  holds  tne  record  of  a  transaction's  activity 
against  tne  data  oolect  along  nth  data  from  tne 
transaction's  conflict  nistory.  me  uO  uoq,  wnicn  operates 
in  a  fashion  which  is  similar  to  tnat  of  a  stacx,  is  ucdated 
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whenever  the  transaction  accesses  the  aata  ccject.  f.>e 
Log  also  indicates  tne  transaction's  status  as  temcorary  , 
committed  or  aoorted,  a  committed  entry  aenotes  a  ccm.T  lttea 
transaction,  i.e.  one  whose  initiating  site  nas  aeterminea 
the  execution  cycle  to  oe  complete  tor  all  of  its 
suDtransactions.  It  a  transaction  is  in  contuct  vitn  an 
entry  in  the  log  which  is  not  committee,  it  n.arxs  its  entry 
as  temporary  waiting  Ct(*3).  *nen  all  previous  temporary 
versions  (versions  generated  oy  ctner  transactions;  are 
committed,  a  transaction's  temporary  version,  t(wj,  is 
changed  to  ready  to  commit  (t(r)).  For  tne  case  wnere  a 
transaction  nas  to  aoort,  any  transactions  wnlcn  nave 
temporary  versions  Dased  on  tnat  transaction  also  must 
aoort. 

Luring  transaction  execution,  a  local  concurrency 
controller,  resident  at  eacn  site  and  executing  a  copy  of 
tne  adaptive  concurrency  control  algorithm,  utilizes  tne 
information  contained  in  tne  transaction's  conflict  mstory 
and  tne  contents  of  tne  DC  Log  to  detect  ana  resolve  r.on- 
ser ializadle  execution  at  eacn  site.  ine  concurrency 
control  mechanism  constructs  a  precedence  relation  from  tne 
Information  In  tne  DU  Log  ana  tne  conflict  history,  a  non- 
serlallzaole  execution  occurs  *hen  a  transaction  appears  in 
more  tnan  one  place  in  tne  relation,  *nen  non-serializapie 
execution  is  detected,  the  concurrency  control  mechanism 
will  restore  serializable  execution  via  a  roiiDacx  ana 


reexecutlon  process  which  may  involve  one  or  more  or  tne 
transactions  oresent  in  tne  preceaence  relation.  fne 
restoration  of  serial iza Die  execution  can  oe  acconDusnei 
utilizing  a  metric  indicating  tne  amount  ot  "work"  performed 
dy  tne  transaction, 

wnen  a  transaction  attempts  to  read  or  update  a  data 
ooject  at  a  given  site,  it  may  or  may  not  rinu  the  ooject 
locked  oy  anotner  transaction.  If  the  ODject  is  not  leer, ed , 
the  transaction  executes  on  it.  However,  should  a  loc.<  oe 
encountered,  tne  transaction  waits  for  a  predetermined 
period  of  time,  if  tne  previous  transaction  releases  tne 
Iock  oefore  tne  time-out  period  expires,  execution  *ixl 
continue,  wltn  tne  iock  still  ceinq  present  arter  time-out, 
tne  transaction  attempting  to  access  tne  ooject  ser.es  a 
conflict  nistory  to  its  initiating  site,  and  indicates  it  is 
Blocked  at  tne  site.  It  will  then  oe  up  to  tne  initiating 
site  concurrency  controller  to  proceed  wltn  tne  transaction 
execution. 

Once  a  transaction  is  allowed  access  to  a  data  ooject, 
it  Iocks  that  object  and  begins  its  execution.  Snouia  tms 
transaction  oe  in  conflict,  it  may  elect  to  nold  its  lock  on 
the  data  ooject  until  tne  previous  temporary  version  eltner 
commits  or  aborts,  or  tne  transaction  may  release  tne  Iock 
after  creating  its  own  temporary  version,  if  tne  former  is 
tne  case,  tne  snort  duration  Iock  oecomes  a  long  duration 
Iock  and  the  concurrency  control  aigontnm  switenes  from  tne 
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optimistic  mode  to  tne  pessimistic  mode.  Tne  numoer  cr 
temporary  versions  Cn)  allowed  to  ouiid  up  at  a  iota  oc^ect 
can  be  adjusted  to  meet  various  application  criteria  anu 
storage  tecnnoiogies.  If  n  s  o ,  then  tne  algorithm 
functions  similar  to  two-pnase  locking  with  two-onase 
commit.  For  nigner  n ,  tne  algontnm  allots  a  areater  degree 
of  concurrency. 

T*o  points  snoulo  be  noted  here,  ine  rirst  is  tnat  *nen 
n  =  o ,  a  aeaalocK  detection  process  mill  oe  reuuirea  ana 
secondly,  wnen  n  is  nign,  a  domino  erfect  can  occur  wnereov 
all  transactions  wnose  temporary  versions  are  oases  or  an 
aborted  transaction's  temporary  version  must  themselves 
abort. 

To  illustrate  in  more  detail  now  tne  alaontnm  performs 
Its  concurrency  control  functions,  a  view  is  ca<en  of  tne 
transaction  as  a  carrier  of  information.  me  transaction 
carries  its  conflict  history  from  site  to  site  ana  if  a 
transaction  FURKS  to  execute  suptransactlons  concurrently, 
eacn  transaction  carries  a  copy  of  tne  conflict  nistory  witn 
it.  At  eacn  site,  tne  transaction  attempts  to  detect  ana 
resolve  non<*serializable  execution  ano  in  tne  orocess,  it 
updates  Its  own  conflict  nistory  wnlcn  is  deposited  at  tne 
site  in  the  data  object's  DO  bog,  when  tne  transaction 
completes  Its  wor<,  it  returns  to  Its  initiating  site.  Any 
concurrently  executing  subtransactions  JOIN  as  tney  move 
towards  tne  initiating  site  and  tnelr  conflict  histories  are 
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merged,  before  a  transaction  exits  tne  system,  it  vast 
ensure  it  has  generated  only  serializaole  execution  curing 
its  journey  tnrougn  tne  system  and  only  tner.  may  it  co:..^it 
all  of  its  temporary  versions. 

At  the  initiating  site  tne  transaction's  entire  conflict 
history,  accumulated  during  its  execution  tnrougn  tne 
system,  is  inspected.  if  the  conflict  history  is  empty,  tne 
transaction  is  reaay  to  commit  and  it  will  so  notify  eaen 
site  »nere  it  nas  temporary  versions.  Snoula  a  conriict 
history  contain  entries,  tne  transaction  senes  a  cony  of  its 
conflict  nlstory  to  tne  initiating  site  of  eac.n  transaction 
listed  in  the  history.  The  transaction  tnat  sent  its 
conflict  history  to  other  sites  then  invoices  tne  initiating 
site's  concurrency  controller.  A  precedence  relation  is 
constructed  from  tne  concatenation  of  this  conflict  history 
and  any  conflict  histories  receivea  from  otner  transactions . 
If  no  non-serializabie  execution  is  detected,  the 
transaction  will  send  its  preceaence  relation  to  tne 
initiating  site  of  wnicnever  transaction  it  last  added  to 
its  preceaence  relation.  This  process  continues  until 
either  non-serlaiizapie  execution  is  detected  or  until  the 
transaction  receives  a  precedence  relation  vnicn  only 
duplicates  relations  currently  held.  In  the  latter  case, 
the  transaction  is  ready  to  commit  and  it  will  be  necessary 
tor  tne  transaction  to  broadcast  a  commit  message  to  eacn 
site  wnere  the  transaction  nas  temporary  versions. 
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For  tne  case  wnere  non-seriaiizaole  execution  is 
indicated,  serializable  execution  is  restored  in  tne  same 
manner  as  before ,  witn  consiaeration  given  to  tne  econo-ic 
factors  involved  in  restoration,  unce  nor.-serializocle 
execution  is  no  longer  a  possiDiiity  tor  a  given 
transaction ,  tne  transaction  enters  its  commit  cnase  »r,ere 
it  will  commit  all  ot  its  temporary  versions,  mis  onase  is 
complete  when  all  tne  temporary  versions  on  .vnicn  tne 
transaction  nas  oasea  its  temporary  versions  nave  committen 
ana  tne  transaction's  status  is  marked  commit  at  ail  tne 
data  ODjects  visited. 

Considering  tne  case  where  tne  initiating  site  nns 
received  a  conflict  history  from  a  suotransaction  wnicn  nas 
been  blocked  out  of  a  data  object  ana  nas  experience  a 
time-out  condition,  tne  initiating  site  takes  tne  same 
actions  tnat  it  woula  nave  taken  it  tne  transaction  r.ai 
completed  its  course  ana  returned  to  tne  initiating  site. 
In  tnis  situation,  any  restoration  reauiren  snouid  allow 
tnis  transaction  to  execute  last  oecause  if  it  ala  not,  tne 
transaction  may  create  more  non-serial lzaoie  execution  after 
restoration. 

Tne  advantages  of  tne  proposed  algorithm  can  ee 
summarized  as  follows: 

1,  when  there  is  no  conflict,  it  functions  with  minimum 
overhead.  There  are  fewer  messages  required  to  commit  a 
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transaction  tnougn  it  must  ce  cointed  out  tnat  z-.ls 
reduction  is  acnleveo  at  the  cost  of  iosina  site  autonomy 
for  a  longer  period  of  time. 

2.  An  increase  in  concurrency  may  oe  achieved  oy 
allowing  transactions  to  access  results  generates  from  other 
transactions  not  yet  committed,  Tne  algorithm  is  considered 
optimistic  in  tnac  it  is  assumea  that  those  "not  yet 
committed”  transactions  will  eventually  commit,  if  t nig 
does  not  occur,  tne  amount  of  «or<  which  must  oe  unuone  can 
be  limited  Dy  a  locKlng  mechanism. 

3,  The  algorithm  can  switch  Detween  oessimistic  lusirv: 
long  duration  loc<sJ  and  optimistic  Cusmu  short  duration 
Iocks)  modes  at  any  time  and  for  any  aata  ooject.  Thus,  in 
the  same  database,  nign  contention  riles  can  operate  m  tne 
pessimistic  moae  ana  low  contention  tiles  in  tne  optimistic 
mode  -  all  oeing  controlled  oy  the  tne  same  concurrency 
control  algorithm, 

d,  TAANSACIIOn  tXECUTIQN  fc.  A  A  '4  P  L  F 

For  tnis  example  *e  assume  tnat  each  aata  cogect 
accessed  by  a  transaction  is  located  at  a  different  site 
wltnln  the  distriouted  system.  Data  ocject  win  oe 
located  at  Site  A,  aata  object  at  Site  t>,  and  so  tortn. 
Furthermore,  assume  that  a  relatively  low  degree  of 
concurrency  Is  desires  and  tnus  tne  algorithm  will  switch 


from  optimistic  to  pessimistic  mooes  *nen  -r-ic  r. 
suDtransaction  encounters  Its  first  conflict,  i.e.,  n  =  i. 

Let  transaction  ri  enter  tne  system  at  Site  a.  ii 
consists  or  only  one  suotrar.sactlon  wnicn  first  executes  at 
Site  C,  T1  tnen  transits  to  Site  A  *ne re  it,  upon 
inspection  of  the  applicable  Lu  uoy,  detects  a  conflict  *itn 
transaction  12,  ri  executes  on  that  data  ooject  ana  noias  a 
Iock  on  it  as  it  returns  to  its  initiating  site,  site  m. 
Tl's  conflict  History  contains  only  12  at  aata  ooject  c  *itn 
a  metric  reflecting  tr.e  amount  of  *  or*  cone  oy  tctn 
subtransactions  up  to  the  point  m  time  oi  tneir  reacr.in 
data  object  o.  A  viable  fbrm  tor  tne  conflict  mstory 
entry,  and  tne  one  usea  in  tnis  example,  is  given  as:  n  : 
<T2T1  :  b  :  7>, 

Transaction  12  enters  tne  system  at  site  D.  it  also 
consists  of  only  one  suotr ansactlon  wmch  first  executes  at 
Site  3,  tnen  moves  to  Site  F,  it  there  discovers  tnat  it  is 
In  conflict  with  transaction  To.  it  executes  on  aata  ooject 
f,  updates  Its  conflict  History  to  include  UJ12  it  :  ••*>, 
noias  the  Iock  on  it),  and  then  transits  to  site  C.  At  site 
C  It  encounters  a  Iock  *nlcn  is  neia  oy  ri.  After  waiting  a 
time-out  period,  12  finas  tne  Iock  still  present,  it  senas 
a  message  to  its  initiating  site  containing  its  conflict 
History  and  tne  fact  tnat  it  is  Dlocxeg  at  site  C.  lx  win 
marK  its  conflict  nistory  with  a  to  indicate  tnat  it  is 
still  executing,  12  :  <liT2  :  t  :  4+>. 
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Transaction  T3  enters  the  system  at  site  t  and  consists 
of  two  subtransactions:  STii  and  ST32.  ST 3 1  transits  to 
Site  t  ,  executes  tner e ,  ana  then  returns  to  its  initiating 
site.  Site  it  SuDtransactlon  o!32  moves  from  site  i  to  site 
C  to  execute  tnere.  After  ootaininq  tne  ioc<  ana  cnecxing 
tne  L)0  Log  entry,  ST32  aiscovers  tnat  it  is  in  conflict  »itn 
transaction  Tl.  SI32  will  execute  at  data  ooject  c  anc  <eeo 
its  1  ock  as  it  also  roves  oac<  to  site  e.,  its  initiating 
site,  *nen  ST31  ana  ST32  JulM,  they  will  merge  tneir 
separate  conflict  nistories  to  form  u's  conflict  history. 
Since  SIJl's  is  empty  ana  ST32's  consists  of  il  at  aata 
object  c  (assume  tne  metric  to  De  11)  u's  cont±lct  history 
will  oe  13  :  mii  :  c  :  H>, 

wnen  all  of  a  transaction's  suDtr ansactions  nave 
returned  to  their  initiating  site  eitner  tne  transaction 
will  oe  able  to  enter  its  commit  pnase  or  it  will  c» 
necessary  for  it  to  invoke  the  site's  concurrency  controller 
in  order  to  detect  ana  resolve  posslDie  non-ser lalizeoie 
execution.  Since  in  our  example  eacn  transaction  nas  a 
non-empty  conflict  history,  the  initiating  site  must  attempt 
to  aetect  non-ser laiizaole  execution,  Lacn  transaction  will 
send  a  copy  of  its  conflict  history  to  tne  initiating  site 
of  eacn  transaction  in  its  conflict  history. 
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12  :  {T3I2  S  i  J  4  +  }  ---->  Ti 
TJ  :  < T 1 T 3  :  c  :  u>  ti 

Eacn  transaction  will  construct  a  precedence  relation 
from  tne  concatenation  of  Its  conflict  nistory  *1  tn  ar.y 
conflict  history  It  nas  received  from  otner  tr ansactions . 

Tl  :  4  T  2  T i  JDS/ 

TiT j  :  c  :  ii> 

T2  :  { T  3  T 2  {  t  :  4  + 

T2T  i  J  D  :  •/> 

T 3  :  { 1 1 T  j  ;  c  :  11 

T  3  T  2  :  r  :  4  +  > 

A  precedence  relation  win  reveal  tne  presence  of 
seriallzaoie  execution  if,  once  a  transaction  nas  received  a 
conflict  nistory  wnicn  it  nao  received  previously,  it  is  not 
aole  to  detect  non-serializaoie  execution,  mat  is,  it  in 
adding  a  relation  to  its  preceuence  relation  a  transaction 
adds  only  duplicate  conflicts,  and  if  amonqst  ail  tne 
conflicts  present  in  its  oreceaence  relation  no  cycles  can 
oe  detected,  then  tnat  transaction's  execution  seouence  is 
serial! za Die,  Transactions  will  continue  to  pass  tnei r 
conflict  nistories  to  tne  initiating  site  of  wnicnever 
transaction  was  last  aaded  to  its  conflict  nistory,  until 
eitner  non-serlallzable  execution  is  detected  or  tr.e 
precedence  relation  can  detect  seriallzaoie  execution,  as 
above.  Since,  in  our  example,  #e  nave  not  yet  reacnea 


either  ot  these  conditions,  it  is  necessary  to  rass  tre 

precedence  relations  whlcn  have  accumulated  up  to  mis  tom 
in  time,  They  will  be  passed  as  follows: 

XI  13 

£2  ---->  11 

X3  ••■->  '12 

Each  transaction  constructs  a  new  precedence  relation 
from  the  relations  it  receives: 

t l  :  { T2T l  :  O  :  7 

II fi  :  c  :  11 
f  3  T  2  :  r  :  <*  + 

T2T1  :  o  :  7  > 

T2  :  <  T3T2  :  f  :  **♦ 

T2T1  :  D  :  7 
riTi  :  c  :  ll 
I3T2  :  r  :  4+> 

T3  :  { T l I 3  :  c  :  11 

1312  :  £  :  i + 

1 2  T  l  ;  d  :  7 

t  l  T  3  :  c  :  1 1  > 

Each  transaction  can  now  detect  that  non-serial izaole 
execution  has  occurred  since  a  transaction  is  listed  in  r..ore 
than  one  location.  Since  T2  is  still  executina,  it  is  cest 
to  resolve  tne  conflicts  in  a  way  wnicn  will  allow  12  to 
execute  last.  (If  none  of  tne  transactions  are  still 
executing  then  the  least  cost  transaction  pair  would  oe 
rolled  oacK  to  break  the  cycle).  This  means  tnat  '12 ’ll  is 
the  transaction  pair  wnich  must  be  re-executeo  at  ;ata 
ooject  b  in  oraer  to  resolve  tne  non-ser laiizacle  execution. 
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T 1  and  T2  roll  back  to  Site  o.  n  executes  ana  returns  to 
Its  initiating  site  witn  an  empty  conflict  nistory  and  is 
able  to  commit.  when  II  conmits,  13  will  charge  t.-.e  L;  j 
entry  at  data  object  c  to  t(r),  release  its  locx  on  tc>.  ana 
commit.  After  11  nas  re-executed  at  {p>,  12  will  ce  aole  to 
re-execute  at  tb>,  at  <t>»  and  at  <0.  At  eacn  aata  object 
12  will  acquire  a  lock,  execute,  ana  mark  its  versions  as 
t(w)  or  tCD  depending  on  now  long  it  taxes  Ti  ana  )3  to 
commit , 

Commit  will  occur  in  tne  following  manner.  Once  tne 
cycle  is  Droken,  II  will  oe  returning  to  its  initiating  site 
with  an  empty  conflict  history  ana  all  or  its  versions 
marked  t(r).  11  Drcadcasts  a  message  to  all  of  its  sites 
telling  tnem  to  commit  their  i>0  Log  entries,  as  soon  as  II 
commits,  li  will  release  the  lock  tnat  it  is  noioina  at  one 
C  and  send  a  message  to  its  initiating  site  sayinq  tnat  its 
temporary  version  at  Site  C  is  ready  to  commit,  as  tnis  is 
the  only  t(w)  version  that  T3  was  waiting  for,  13  can  now 
broadcast  a  commit  message  to  all  its  sites.  At  tnis  point, 
transaction  T2's  temporary  versions  will  nave  tneir 
designation  cnanged  to  t(r),  tne  locks  neld  by  12  win  oe 
released,  and  messages  will  be  sent  to  T2's  mitiatina  site 
indicating  that  tne  sites  are  ready  to  commit,  oastiy,  i/. 
will  oroadcast  a  commit  message  to  tnose  sites. 
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IV 


EXTENSIONS  TC  THc.  PRuPUSfc-D  ALGOR ITR 


A.  LONG-LIVED  TRANSACTIONS 

Tne  usefulness  ot  tne  transaction  conceot  in 
applications  sucn  as  electronic  fund  transfers,  airline 
reservations  and  car  rentals  nas  oecome  evident  xn  tne  past 
few  years.  Tne  traditional  transaction  moael  tor  tnese 
applications  assumes  tnat  tne  transactions  are  snort  iiveo 
i.e,,  tney  are  transactions  of  snort  duration.  m*ever,  tne 
concept  "transaction"  does  not  in  itself  iinply  any 
limitation  on  the  lifespan  of  tne  transaction  in  a  system. 
It  would  seem  that  a  more  general  concept  of  a  transaction 
would  not  Impose  any  time  limit  on  tne  duration  ot  tne 
transaction,  in  fact,  there  are  many  applications  sucn  as 
escrow,  travel,  insurance,  legal  proceedings,  etc.,  wnicr.  ey 
tneir  nature  require  transactions  <mcn  can  last  for  a  lonu 
time.  Gray  Hi  calls  this  class  ot  transactions  iong-iiveo. 
we  will  attemut  to  snow  now  tne  transaction  model  ana  tne 
adaptive  concurrency  control  mecnanlsm  presented  in  lej  nay 
oe  applicaoie  to  tne  proBlem  of  supporting  lona-iiven 
transactions.  Tnis  prooiem  is  also  adaressed  in  12, ii. 
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1 ,  Compensating  Iransaction  approach 


In  a  conventional  transaction  environment,  wnen  tne 
effects  or  a  committed  transaction  must  ce  aitere-u,  a 
compensating  transaction  is  run  to  oac*  tne  value  out.  inis 
metnoa  is  not  general  in  tnat  it  only  applies  to  commutative 
operations  and  it  is  scmewnat  aeceptive  m  that  tne  user  nes 
oeen  led  to  ceiieve  tnat  tne  value  or  tne  aata  oc]ect,  orior 
to  compensation,  was  permanent  wnen  in  fact  it  was  net. 
Moreover,  other  users  may  nave  maoe  decisions  cased  on  tne 
data  opject  value  with  tne  unaerstanainq  tnat  tne  value  may 
oe  permanent.  *hat  each  of  tnese  users  nave  oeen  aeaimg 
wltn  is  tne  outcome  of  a  long-iivea  transaction  ana  not  a 
permanent  aata  OD^ect  vaiue.  It  may  ce  true  tnat 
individuals  wno  wor<  in  this  environment  are  a*are  or  tne 
Pitfalls  of  maxing  aecisions  in  tnese  situations  ana  act 
accordingly.  But,  we  oelieve  tnat  tne  system  snouid  proviue 
a  venicie  w heresy  the  user  can  ce  maae  explicitly  aware  tnat 
the  data  vaiue  he  is  aealing  with  is  temporary. 
Additionally,  tne  compensating  metnoa  itseit  Tay  not  ce 
generally  appllcacle,  rnls  may  oe  because  different  parties 
wno  are  affected  or  involved  in  tne  long-lived  transaction 
seem  to  nave  differing  views  as  to  *nat  constitutes  a 
transaction.  For  example,  from  Gray  14J,  in  a  reservations 
scenario:  "Tne  customer  tnlnxs  ot  this  wnoie  scenario  as  a 
single  transaction.  rne  agent  views  tne  fine  structure  of 


tne  scenario,  treatino  each  step  as  an  action 


i  h  e  airlines 


and  hotels  see  only  individual  actions  cut  vie*'  tr.e;.  as 
transactions.  Ihis  example  maxes  it  clear  tnat  actions  may 
oe  transactions  at  tne  next  lower  levei  of  acstraction. " 

2.  a  More  General  Approach 

It  seems  tnat  organizations  whicn  aeai  *itn  tne 
applications  iistea  aoove  view  tneir  transactions  * itn 
customers  as  separate  actions  even  tnougn  each  action  must 
oe  accomplished  to  satisfy  the  customer's  request.  Pome  of 
tnese  actions,  are  lonq-liveo,  using  tne  reservations 
example,  it  seems  tnat  tne  transaction  involved  nas  t * o 
levels  of  atomicity;  one  dealing  *itn  tne  generation  of 
cemoorary  data  and  tne  other  *itn  commitment  (or  aoortion) 
of  tne  data.  It  is  this  property  wnicn  leaas  us  to  celieve 
that  a  mechanism  snould  ce  provided  to  tne  dataoase  user 
tnat  can  maxe  tne  nature  of  tne  aata  more  explicitiy  <no*n. 

In  tnis  regard,  tne  user  requires  that  two  choices  ce  mace 
availaole  to  him  oy  tne  system  :  a;  the  ability  tor  tne  user 
to  oe  made  aware  of  the  temporary  nature  of  tne  data  ooject 
and/or  o)  a  capaoliity  such  tnat  tne  user  can  oe  presented 
with  the  illusion  tnat  tne  temporary  data  is  permanent  wnen, 
in  fact.  It  is  not.  Nothing  we  see  in  tne  compensating  t 

transaction  scneme  allows  tor  cnoices  such  as  tnese.  Anotner 
conceptualization  of  this  iaea  is  to  view  tne  tenoorary  aata 
as  conditional  data  whicn  becomes  true  only  wnen  tne 
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long-llvea  transaction  commits.  For  example,  tne  qraoti'-g 
of  a  loan  to  an  applicant  is  a  temporary  state  for  an  escro* 
process  as  it  is  oreolcatea  on  ail  or  tne  conditions  or  tne 
escrow  oeing  satisfied.  Tne  loan  Is  executed  (committed) 
only  it  tne  conditions  are  met;  otnerwtse  it  is  canceled 
[aborted) . 

3 .  Temporary  versions  and  Long-Livea  Transactions 

as  tne  adaptive  concurrency  control  aloontn-  Is 
basea  on  temporary  versions  of  oata  objects  ano  temporary 
states  for  data,  one  can  expect  tnat  tne  proposed  additive 
concurrency  control  mecnanism  can  naturally  suDport  tne 
execution  of  long-livea  transactions .  mis  expectation  is 
based  on  tne  fact  tnat  the  aigoritnm  treats  lonq-livea 
transactions  in  the  same  manner  as  snort- lived  transactions. 
This  manner  of  treatment  is  possible  as  ootn  types  of 
transactions  generate  temporary  versions?  tne  only 
difference  Is  tnat  long- lived  versions  are  more  oersistent. 
As  a  result,  even  tnougn  long-lived  transactions  seem  to 
generate  mostly  temporary  data,  they  provide  no  aaaitional 
complexity  for  tne  concurrency  control  mecnanism. 

Tne  transaction  model  and  tne  temporary  versions 
introduced  in  tne  croposea  aigoritnm  provide  tne  properties 
we  deem  necessary  for  tne  user's  more  realistic  view  or  nis 
data,  Badal  L12J.  Gur  reasons  tor  coming  to  tnis  conclusion 
are  twofold.  First,  tne  suotransaction  sen erne  ras  two 
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levels  of  atomicity.  One  aeals  with  tne  Generation,  a 
temporary  data  and  tne  second  ueals  witn  tne  commitnent  or 
aoortion  of  all  tne  suctransaction's  temporary  versicrs. 
Tnls  fits  nicely  wltn  our  conception  of  tne  two  levels  of 
atomicity  displayed  oy  long-lived  transactions  (for  a  giver, 
transaction,  all  temporary  data  actions  nave  to  occur  dr a 
all  temporary  oata  eitner  oecomes  permanent  or  acorts}. 
secondly,  tne  use  of  time  stamps  for  temporary  versions  enn 
tneir  permanent  storage  would  allow  tne  concurrency  cortrol 
mecnanlsm  to  support  queries  using  time  references  sucn  as 
"wnat  were  the  values  or  data  ooject  x  at  time  t".  mis,  c: 
course,  is  a  matter  dependent  on  apDlicatlcn  reauiremer.ts 
ana  available  storage  tecnnoiogies , 

4 ,  Temporary  versions  ar.q  tne  Domino  effect 

Since  the  1-tn  version  of  a  aata  omect  is  created 
by  updating  tne  ci-lj-tn  version,  ana  since  tne  i-tn  version 
cannot  commit  until  all  versions  it  is  caseu  on  commit,  tre 
possloiiity  exists  for  a  domino  effect  when  a  transaction 
aoorts.  This  is  true  cecause  when  tne  the  <-tn  version  of  a 
data  oDject  is  aoorted  all  j  versions,  jx,  must  also  accrt. 

Problems  whicn  may  be  posed  cy  tne  domino  effect  can 
be  minimized  because  tne  effect  can  oe  limited  oy  tne  user 
varying  tne  number  of  copies  of  tne  temporary  versions 
allowed  to  exist  at  a  data  object  at  any  one  time,  i,  e.,  cy 
varying  tne  value  of  "n",  moreover,  tne  oomino  effect  m 
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our  scheme  and  tne  compensation  transaction  ir.  tr.e 
conventional  system  are  in  tact  tne  same  thine;  from  tne 
user's  viewpoint,  faotn  result  in  tne  user  losing  tne  Value 
of  the  data  object  wnicn  was  current  in  tne  user's  vie*  of 
the  database.  However#  it  should  oe  noted  tnat  tne  proposed 
adaptive  concurrency  control  mecnanism  itselt  is  intenaec  to 
minimize  Interference  among  transactions.  This  is  aue  to 
tne  mecnanism's  detection  of  non-ser lai izaDie  execution  or. 
the  smallest  possible  granularity  i.e.,  tne  accessed  recor  i 
field.  This  will  decrease  and  possiol y  eliminate  all 
conflicts  among  transactions. 

It  may  be  possible  to  minimize  tne  domino  effect  for 
tne  proposed  algorithm  througn  tne  application  ot  t*c 
methods.  The  first  method  would  caDitalize  on  tne 
commutaole  nature  of  most  types  of  data  in  tr.e 
aforementioned  application  areas,  Tn is  would  alio*  versions 
cased  on  an  aborted  version  to  remain  active  after  some 
acceptaoie  adjustment  to  tne  data  ocject  values,  me  use  of 
a  recovery  algoritnm  based  on  the  semantics  of  tne  data  is 
the  otner  method  which  could  help  to  derogate  any  primary 
concerns  about  tne  effect  of  multiple  temporary  versions 
being  aborted,  inis  scneme  is  closely  associated  witn  tne 
particular  type  of  application  tne  Do ms  is  servicing  because 
semantic  considerations  are  directed  to  tne  meaning  or  tne 
data.  An  example#  from  faissol  llu]#  will  demonstrate  tne 
semantic  constraints  whicn  may  apply  to  a  data  ocject:  in  a 
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credit-debit  environment ,  "money  is  conserved",  i.e.,  ®very 
credit  to  one  account  must  be  matched  to  a  debit  to  s-'e 


other  account. 

TO 

f acilitate 

these  <inds 

of  s  a ~  a r. t  i c 

considerations , 

tne 

DofoS  must 

be  able  to 

proviae  tr.e 

application  programmer  *1  th  a  vehicle  tor  construction  ot 
semantic-based  algorithms  *hicn  can  oe  applied  to  tne 
temoorary  versions  resident  at  a  given  data  object. 

S.  Conclusion 

The  proposed  oDtimistic  concurrency  control 
algorithm  seems  to  have  an  innate  aoility  tor  nanoling 
long-lived  transactions,  because  tne  algorltnm  can  orovioe 
to  tne  user  a  more  realistic  vie*  ot  temporary  oata  *nile 
providing  a  nion  level  of  consistency,  *e  believe  its 
extension  to  tne  problem  of  long-lived  transactions  mignt  oe 
possiole. 

A,  N£T«ORK  PARTITIONING 

A  distributed  database  system  nas  tne  potential 
advantages  of  greater  data  availability  ana  reliability 
since  aata  objects  may  oe  replicated  and  nence  accessed  at 
several  sites  tnrougnout  tne  system.  if,  no*ever, 
consistency  among  copies  of  the  data  is  more  important  tnan 
availability,  multiple  copies  mignt  not  provide  any 
improvement  in  availaoility.  *itn  consistency  as  tr.e 
primary  concern  tne  system  *ouid  either  oe  holding  iocks  or. 
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data  objects  to  prevent  inconsistencies  from  arising 


would  be  spending  a  large  amount  ot  time  detecting  am 
resolving  inconsistencies,  titner  or  these  actions  ■.cam 
detract  trom  data  availability . 

Mutual  consistency  requires  that  it  all  upaate  activity 
were  to  cease,  after  some  period  of  time  all  cooies  of  tne 
same  data  will  converge  to  the  same  value,  inere  are 
numerous  known  algorithms  for  maintaining  mutual  consistency 
during  operation  ot  a  distriouted  database,  16 , 7 , 1 1 ,  i  4j  . 
These  algorithms  don't,  however,  aeal  with  tne  aaaeo 
complexities  wnicn  arise  «nen  tne  network  necomes 
partitioned,  A  network  partition  occurs  wnen  t»o  or  more 
disjoint  subsets  of  sites  in  tne  network  can  not  exchange 
messages  tnrougn  the  network  even  tnougn  some  or  all  or  them 
are  operational. 

i .  Partitioned  Processing 

Given  tnat  a  system  is  partitioned  tnere  are  tnree 
different  general  approaches  to  handling  transaction 
processing,  witn  each  tnere  is  a  traae-off  between  tne 
level  of  data  availability  ana  tne  amount  ot  effort 
necessary  to  restore  system-wide  consistency  once  tne 
partition  ceases  to  exist  -  as  avaiiaoiiity  is  increasea  so 
is  the  amount  of  effort  required  for  restoration  of 


consistency 


a.  Halt  Processing 

Une  possibility  is  to  halt  all  transaction 
processing  until  tne  networx  is  completely  reconnected. 
This  is  one  extreme  « hereby  data  availability  goes  to  zero 
and  no  need  exists  to  restore  consistency  upon  system  merge 
(due  to  tne  partition). 

d.  Cne  site  Execution 

Tne  usual  solution  is  to  alio*  only  sites  wttnio 
a  chosen  partition  to  process  transactions  tnat  upaate  a ate 
objects.  All  sites  still  nave  tne  caDdoility  or  acceotino 
read-only  transactions,  tnough  tne  data  reaa  will  possioiy 
oe  out  of  aate,  Tnis  solution  certainly  allots  some  degree 
of  availability,  tncugn  at  a  cost  of  tne  overneaa  necessary 
to  correct  arising  inconsistencies.  Any  inconsistencies 
wnicn  ao  develop,  however,  are  rainy  simple  to  resolve 
durinq  system  reconciliation.  ihe  resolution  .nay  oe 
accompiisnea  oy  merely  propagating  any  updated  data  oojects, 
from  tne  one  and  only  site  wnich  was  allowed  to  ma*.® 
updates,  to  ail  other  sites  *here  that  aata  is  reoiicatec. 
c.  Concurrent  Execution 

Another  solution  would  oe  to  continue  operating 
all  sites  "in  parallel"  auring  tne  partition  ana  to 
reconcile  tne  databases  at  oartition  merge.  it  *ouin  oe 
worthwhile  to  nave  all  oartitions  in  operation  (aliov. in i 
botn  read  and  upoate  capability)  if  avaiiaoiiity  of  aata  is 
more  important  than  maintaining  its  consistency,  provide? 
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tnat  "conflicts'1  between  ccpies  or  aata  car.  aiv-ays  ;.*» 
automatically  reconciled  *nen  communications  are  re¬ 
established. 

2.  Requirements  For  Concurrent  execution 

If  sites  *ltnin  disjoint  partitions  are  allowed  to 
continue  ooeratlng,  tnere  are  three  general  requirements 
which  must  oe  satisfied  in  order  for  a  system  to  oe  vlacle. 
a.  Integrity  constraints 

Integrity  constraints  must  not  oe  vioiatea.  me 
two  components  of  integrity  constraints  aescrined  m  raisscl 
CIO]  are  operational  constraints  and  semantic  constraints. 
Operational  constraints  wnicn  mignt  result  m 
inconsistencies  in  any  given  partition  win  be  handles  cy 
our  concurrency  control  mecnanism.  semantic  constraints 
present  in  eacn  partition  of  a  partitioned  netvor<  need  not 
differ  from  the  constraints  present  men  tne  net* or k  Is 
completely  connected. 

If,  nowever,  tne  semantic  constraints  cresent 
when  the  networ <  is  completely  connected  are  correctlv 
modified  to  reflect  operation  in  a  partitioned  environment, 
tne  system  reconciliation  can,  in  some  cases,  oe  maoe  a 
trivial  process.  That  is,  if  sufficient  semantic  cnowledge 
1 3  useo,  tne  transaction  schedules  produced  m  eacn 
partition  may  oe  made  independent,  if  site  a  is  partitioned 
from  Site  B  and  the  partition's  transactions  are 
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independent#  tne  reconciliation  crocess  may  oroceeo  cs 
follows:  Site  »'s  transactions  could  oe  execute j  on  too  or 
Site  A '  s  to  produce  aaca  object  values  at  site  A  wncn  could 
tnen  oe  taken  to  have  the  "correct'’  values.  These  new 
values  would  simply  De  passed  to  site  d  ar.d  installed  at  tne 
replicated  data  objects. 

Semantic  constraints  present  *nen  tne  network  is 
comoletely  connected  must  necessarily  oe  modi f lea  to  31  lo  * 
updates  witnin  disjoint  partitions,  Cor.si.aer  an  airline 
reservation  system  and  a  specific  tlunt  »un  you  seats.  it 
is  odvIous  tnat  it  tne  reservation  system  were  to  partition, 
it  would  net  be  feasible  to  allow  tne  reservation  or  2ou 
seats  within  eacn  partition.  semantic  knowieace  miant 
dictate  that  each  partition  has  control  over  reservations 
for  halt  of  the  seats.  Certainly  tne  necessary  semantic 
modification  for  tne  partitioned  environment  will  ce 
application  dependent.  Also  equally  certain  is  tne  tact 
tnat  in  any  relatively  large  system  it  would  oe  impossicie 
to  produce  a  complete  set  of  semantic  constraints  which 
would  oe  capable  of  nanoling  all  possible  partitions.  «e 
therefore  see  tnls  semantic  approacn  to  ccncrcilir.a 
reconciliation  as  being  ot  limited  usefulness  and  as 
certainly  not  being  able  to  nandle  reconciliation  m  the 
most  general  case. 
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o.  Control  External  Action 


External  actions  must  ce  controlled,  inese  are 
non-recoveraole  actions  Ce.-j.  a  discersea  payment),  .iec ause 
of  the  independent  processing  nature  of  eacn  partition,  tne 
proplem  of  external  actions  is  complex.  Tre  cataoase 

manager  most  lively  will  restrict  external  actions  *r.en 
operating  under  partitions,  possioiy  Dy  allowir.c  only  cnosen 
sites  to  execute  transactions  not  easily  reversed, 
c.  Kestore  Mutual  Consistency 

upon  elimination  oz  tne  oartitlon,  mutual 
consistency  among  replicated  aata  oojects  must  oe  restored. 
Tnrougn  tne  use  of  tne  concurrency  control  mecnams.r  tne 
internal  consistency  of  any  one  partition  can  oe  preserved. 
However,  since  tnere  is  no  communication  oet*een  tne 
partitions,  tne  transactions  executing  in  eacn  partition  nav 
cause  tne  values  of  data  oojects  replicated  in  aifrerent 
partitions  to  diverge.  This  divergence  destroys  mutual 
consistency  ana  results  in  a  aataoase  no  longer  meeting  Its 
assertions  once  tne  partition  is  merged,  *s  discussed 
aoove,  semantic  constraints  may  oe  utilized  in  a  li.mtec 
numoer  of  applications  to  acnieve  tne  reauired 
reconciliation.  Discussing  a  general  solution  to  tne  mutual 


consistency  problem  is  the  primary  goal  of  this  section 


3.  Solving  The  mutual  Consistency  Proplen 


In  order  to  ascertain  the  correctness  ot  "ne 
approach  to  be  presented  in  tms  section  *e  .-use  r.ave  an 
understanding  of  what  correct  operation  in  a  partitioned 
environment  consists  of,  we  will  consider  first  an  me  a 
wnicn  is  presented  in  f-'aissol  tiu). 

If  S  is  a  scnedule  composed  of  transactions  navina 
executed  witnln  two  disjoint  partitions,  »e  are  concerned 
*itn  determining  a  scnedule  equivalent  tc  some  serial 
execution  or  S.  it  need  not  necessarily  oe  a  scnecuie 
equivalent  to  s.  It  snouio  be  understood  tnat  tn is  concept 
of  scnedule  equivalence  mignt  not  produce  the  same  results 
as  would  oe  obtained  from  a  connected  network  (due  to  tne 
concurrency  there  may  oe  different  ''correct”  sets  of 
results),  cut  tnis  will  cause  no  prooien  if  serial izaci i i ty 
is  tne  criteria  tor  correct  system  operation. 

Our  approach  for  handling  mutual  consistency  ta<es 
tne  following  form.  After  a  partition  occurs,  transactions 
within  each  partition  will  continue  to  execute  aoainst  tneir 
data  oojects,  some  of  which  are  replicated  in  at  least  one 
other  partition,  witnin  eacn  partition,  at  a  site 
designated  the  control  site,  a  Partition  Log  is  created. 
This  log  will  nave  information  accumulated  in  it  anout  every 
transaction's  activities  within  tne  partition.  It  will 
contain  information  aoout  activity  against  eacn  aata  ODject 
such  as  transaction-IDs ,  read  and  write  sets  ot  tne 
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transaction,  conflict  nistories,  and  tne  old  ann  new  values 
of  tne  data  object,  Tne  necessary  Information  "U.  ce 
collected  by  each  transaction  as  it  passes  tnrouan  tne 
system,  inis  information  will  oe  oassea  to  a  no  storea  m 
the  Partition  Log  in  tne  oroer  in  wnich  transactions  nave 
f inisned  execution.  if  a  transaction  whlcn  nas  completed 
its  execution  is  rollea  bac<  by  the  concurrency  controller 
in  order  to  maintain  seriaiizaole  execution  witnin  tne 
partition,  then  it  will  be  necessary  to  remove  tne  roilea 
Pack;  transaction's  data  from  tne  partition  uoq,  Tnis  will 
result  in  a  total  ordering  of  tne  transactions  for  a  oi ven 
partition. 

At  partition  reconnect  time,  activity  nil  ce 
allowed  to  continue  only  for  transactions  wnicn  nao  aireaoy 
bequn  execution.  It  is  necessary  first  to  create  a  static 
environment  tnrougnout  tne  system  sucn  tnat  no  new 
transactions  are  allowed  to  enter  ana  all  ola  ones  nave 
completea  execution. 

The  reconciliation  process  ceqins  by  usina  tne  cata 
contained  in  eacn  Partition  Log  to  create  a  serial  scnecuie 
for  tnat  partition.  Since  the  schedule  contained  within  any 
one  Partition  Log  resulted  from  execution  insured 
serializable  by  tne  partition's  concurrency  controller,  tne 
serial  schedule  produced  is  guaranteed  to  be  cycle  free. 

Next,  it  is  necessary  to  construct  a  global 
precedence  relation  utilizing  ootri  tne  serial  schedules 


which  have  been  produced  and  information  contained  m 
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Partition  Log.  cnee  tne  glooai  relation  is  constructed  it 
is  necessary  to  inspect  it  for  cycles,  it  tne  relation  is 
acyclic  then  tne  transactions  contained  within  are 
serlallzaole  (Davidson  L15J  contains  a  proof  of  tnis)  ana  it 
is  sufficient  for  restoration  of  consistency  to  tor ware  tne 
updated  values  of  modified  data  onjects  to  tne  sites  wnere 
replication  occurs. 

Both  wrlgnt  I'loj  ana  uaviason  ['oj  discuss  tr.e 
construction  and  use  of  a  creceaence  graph  to  orovlae  a 
means  for  determining  tne  transactions  wr.icn  snouxo  oe 
roiled  oacK,  we  will  use  their  aporoacn,  moditieo  to  tit 
our  implementation  strategy  ana  concept  of  conflict 
histories  and  precedence  relations.  Ineir  precedence  graph 
G  =  iv,t)  is  defined  as  tne  vertices  1/  oeip.a  tne  union  ot 
the  transactions  from  ail  partitions,  and  tne  sages  E  peine 
the  union  of  "Dependency  Edges"  (aright,  or  "Hippie  Eaaes", 
Uaviason)  *itn  "Precedence  Edges"  ana  "Interference  Edges". 

Dependency  Edges  are  eaaes  *nicn  represent  tne  tact 
tnat  one  transaction  read  or  wrote  a  value  wnicr.  naa  ceen 
previously  updated  oy  a  aifferent  transaction  in  tne  same 
partition.  ine  presence  of  Precedence  Edges  indicates  tne 
fact  that  a  transaction  read  or  wrote  a  value  *  men  was 
later  changed  py  another  transaction  also  in  tne  same 
partition,  interference  Edges  appear  *nen  a  transaction  in 
one  partition  has  read  or  updated  a  data  object  ana  any 


transaction  In  anotner  partition  also  nas  upaatea  tnat 
object . 

rne  "Cepenaency  Edges"  and  "Precedence  edges"  nave 
already  been  constructed  by  our  concurrency  controller  >nicn 
has  remained  active  within  eacn  oartltion,  iney  are 
included  as  conflict  history  pairs  m  tne  partition  Lous. 
It  still  remains  for  us  to  construct  a  conflict  pair  tor  any 
transaction  which  reads  or  writes  a  data  ooject  in  one 
partition  ana  tnat  same  data  object  is  uDaatea  m  a 
different  partition  -  tne  Interference  Edaes. 

For  example ,  if  transaction  i’l  reaas  data  Object  a 
in  partition  1,  ana  transaction  12  writes  aata  ooject  a  m 
partition  II,  then  tne  conflict  pair  HTiT2  :  a"  must  oe 
includea  in  tne  global  relation.  If  botn  transactions  naa 
written  aata  object  a  t.nen  eacn  control  site  wouia  insert  a 
conflict  pair  in  the  glocal  relation:  "TIT2  :  a"  and  "1211  : 
a".  fnis  would  easily  oe  detected  as  a  cycle  ana  either  ii 
or  12  would  be  rolled  oactc  to  a  point  wnlcn  proceeded  its 
execution  on  data  ooject  a.  me  metric  wnlcn  must  oe 
present  in  conflict  pairs  snouid  oe  calculated  as  a  function 
of  the  wor<  which  each  transaction  has  performed, 

unce  ail  conflict  pairs  are  constructea  it  oecomes 
convenient  tc  conslaer  eacn  partition's  control  site  as  tne 
only  site  within  that  partition,  That  control  site  snouid 
nave  tne  complete  set  of  conflict  histones  wmcn  *ere 
derived  from  within  its  partition  plus  tne  aaaea 
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"Interference  Edges"  and  it  snouid  mvoxe  a  "-'article-' 
Concurrency  controller"  algorithm  whicn  is  essentially  :«r 
implemented  procedure  "GLCfcAL-aR"  (see  Aooendix  «).  inis 
invocation  will  cause  tne  passing  of  conflict  Histories 
between  control  sites  and  tne  suDsequent  detection  of  any 
cycles,  Tne  cycles  will  fee  detected  ana  eliminated  m 
exactly  tne  same  way  as  is  taxing  place  at  cotn  data  ocjects 
and  initiating  sites  when  tne  proposed  concurrency  control 
mechanism  is  insuring  ser lalizaole  execution  witnin  a  fully 
connected  system. 

by  inspecting  tne  gloual  precedence  relation,  tne 
Partition  Concurrency  Controller  fmas  either  transactions 
Involved  in  cycles  or  tnose  wnich  are  not.  for  tnose 
transactions  not  part  of  a  cycle,  tne  transaction  is  removed 
from  tne  relation  and  tne  values  of  tne  data  omects  updates 
are  forwarded  to  tne  other  partitions  no 1 ding  tnat  data 
object  so  tnat  tnese  data  objects  can  oe  reconciled.  when 
tne  mechanism  detects  a  cycle  it  cnooses  tne  lowest  cost 
transaction  (possioly  the  one  navinq  tne  fewest  transactions 
dependent  on  It)  and  senos  tne  transaction  to  a  re-execution 
list.  This  process  continues  until  there  are  no 
transactions  left  In  tne  relation,  uastly,  tne  re-exec ut ion 
list  is  emptied  by  processinq  the  transactions  present  in 
the  list. 
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4.  Partitions  Create  Long-Lived  Tr ansactlons 


Consider  now  tne  example  Dresented  earlier  1 

Chapter  HI,  section  b.  Assume  tnac  after  transaction  ii's 

subtransaction,  stsi,  arrives  at  site  t,  a  partition  occurs 

isolating  site  E  Hi's  initiating  site)  from  tne  otner 

sites.  Tnus,  ST31  is  unable  to  return  to  its  initiating 

site.  It  will,  as  oefore,  execute  on  data  onject  t  and 

create  its  temporary  version  tnere.  It  *  ill  also  remain  at 

Site  f  waiting  for  tne  partition  to  nerae,*  *nat  r.as  ceen 

<* 

created  oy  tne  partition  is  actually  a  type  of  lcna-livea 
transaction,  mis  transaction  will  De  automatically  nancleo 
by  the  system  because  it  creates  a  temporary  version  In  tne 

v 

same  manner  as  do  transactions  wnicn  are  not  lona-iiveo. 

Tne  fact  that  the  temporary  version  created  is  prooacly  mere 

\ 

persistent  Clt  may  exist  for  hours,  aays  or  weexs)  tnan  most 
otner  temporary  versions  does  not  introduce  tne  neea  for  any 
special  Handling  ot  suen  long-lived  versions. 

A  transaction  wnicn  is  incut  into  tne  system  ana 
wnicn  Is  long-iivea  due  to  tne  transaction's  very  nature 
presents  problems  in  a  partitioned  environment.  To  nerge 
tne  partitions  it  is  necessary,  as  was  mentioned  aoove,  to 
cease  new  transaction  input  and  to  allow  all  presently 
executing  transactions  to  complete  execution,  inis  may  not 
be  feasible  for  tne  lonu-livea  transaction  as  it  mignt  taxe 
weexs  for  it  to  complete  its  execution,  inis  remains  a 
Problem  which  deserves  furtner  investigation, 
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V,  SIMULATION  ANC  Ifc-STlNG  MtlHUDULUG* 


A.  INTRODUCTION 

In  oraer  to  test  the  proposed  adaptive  concurrency 
control  algorithm  and  to  provide  some  meaningful 
measurements  of  its  capaDilities ,  a  simulation  ot  tne 
mechanism  was  implemented.  The  simulation  .vas  programmed  m 
u£C  VAX-li  PASCAu  and  executed  on  the  uEC  VAa  il/7o0  runninc 
under  VAX/VMS.  Source  code  for  the  simulation  model  ana 
output  from  example  simulation  runs  are  provided  m 
Appendices  b  and  C  respectfully. 

The  simulation  was  designed  to  facilitate  a  crasea 
approac.n  for  investigation  of  the  algorithm  in  tne  areas 
addressed  in  previous  sections  ot  our  tnesis.  I'ne  first 
pnase ,  which  is  tne  target  phase  tor  our  implementation 
effort,  is  an  initial  test  of  tne  oasic  algorithm's  api ii ty 
to  act  as  a  local  concurrency  controller  for  eacr.  uata 
oo}ect  and  as  a  site  concurrency  controller  for  one  given 
site.  Data  structures  and  processing  modules,  designed  ano 
programmed  for  tnis  first  pnase  of  simulation,  were  designed 
in  a  manner  which  would  insure  their  extensioiiity  in  any 
future  phase  of  investigation. 

Future  investigation  of  tne  algorithm's  capaciiities 
would  center  on  its  application  to  tne  partitioned  network 
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environment.  In  this  context,  tne  aigorltnm  would  not  or *y 
act  as  a  local  and  site  concurrency  control  mechanise  out 
also  as  a  concurrency  control  mechanism  at  partition  .-erge 

time. 

Because  we  envision  tne  integration  or  expansion  ot  our 
simulation  to  otner  areas  of  interest  in  aistriouteu  system 
software  design,  we  elected  to  rorego  any  tyoe  of 
prooabl listic  modeling  sucn  as  found  in  uaviuson  USJ. 
Instead,  we  opted  tor  a  more  pragmatic  aroroacn  involving 
standard  aata  structures  sucn  as  iinxeg  lists,  arrays  a no 
records,  Tne  remainder  of  tnis  cnacter  eiaporates  on  our 
design  and  testing  scnemes.  • 

tJ  •  0  ATA  3TrtU(.TUbt£S 

1 .  Transactions 

Transactions  are  Implemented  in  tne  simulation 
design  as  a  linxed  list  structure  pointed  to  oy  a  glocal 
variaole  ( TrtAfoS.PTR ) .  Ine  structure  contains  three  entitles 
of  differing  types;  transactions,  suDtr ansacticr.s  ana  atomic 
actions,  residing  at  tne  nignest  level  in  tne  structure  is 
tne  singly  linked  list  ot  transactions.  Eacn  transaction  is 
uniquely  Known  Dy  its  identifier:  ilMT-3ITt , TxArtS.NU") . 
witnln  each  transaction  record  field  are  pointers  ana  rielas 
wnicn  are  used  for  structure  navigation  ana  orocess 
accounting.  For  a  given  initiating  site  tnere  can  exist  up 
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to  one  nunared  different  transactions,  tacn  transaction  xs 
active  In  the  structure  up  to  toe  point  in  tine  :*nen  it  is 
committed;  at  tnis  Juncture,  tne  transaction  ana  any  ci  its 
pointers  to  lower  level  list  are  removea  from  tne  structure. 

Every  transaction  noae  points  to  a  singly  iinxeo 
list  ot  suotransactions  eacn  of  wnicn  is  ldentiriea  oy: 
i  IN IT-SXTE , TRANS. num  ,  ST-MUtf  > .  iuctrunsactions  are  the  ossic 
units  for  scenarios  where  tne  EOkk  ana  jul.*  operations  are 
used.  me  suotransaction  noae  provides  tne  neaa  ot  tne  list 
tor  its  atomic  action  string,  A  transaction  may  own  up  to 
one  nunorea  unique  suotransactions .  Altncuur 
suotransactions  are  not  autonomous  in  themselves,  they  can 
oe  consiaered  the  execution  entity  in  our  scheme  as  tneir 
atomic  actions  must  oe  processed  in  linear  order  as  cr.ey 
appear  in  tne  string,  A  given  suotransaction,  on  the  otner 
nand,  may  oe  executed  without  regard  to  the  ordering  of 
suotransactions  in  a  transaction. 

Atomic  actions,  contained  in  another  singly  nr.<ea 
list  pointed  to  oy  tneir  suotransaction,  constitute  the  last 
ana  lowest  level  in  tne  transaction  structure.  Identifiers 
for  atomic  actions  contain  four  fields: 
{ IN IT„S1  TE , TR ArtS.^UM , ST.NJt* ,  A A— mum > .  Atomic  actions  contain 
all  the  information  tne  execution  process  requires  to 
simulate  transaction  execution  in  tne  system,  xne  K-w-tuu, 
DO-ID,  and  *erniC  fields  in  tne  atomic  action  orovlae  tne 
necessary  information  to  oe  aole  to  access  and  execute  at  a 
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data  ooject.  Unce  all  atomic  actions  nave  executed  fcr  a 
given  subtransaction  ana  all  subtransactions  nave  executed 
tor  a  transaction,  tne  transaction's  activity  is  ccmciete 
except  Cor  commit.  Ut  course  tnis  is  assuming  no  abort  or 
rollbacK  occurs,  as  previously  notea,  eacn  atomic  action 
string  Cor  a  subtransaction  must  execute  in  tne  order  in 
whicn  they  appear  in  the  string. 

2.  Conflict  Histories 

A  conflict  history,  presenteo  in  cnapter  Ill  as: 

12  :  <1212  :  f  :  4> 

is  implemented  as  a  pair  of  noaes  in  a  llnxed  list.  In  tnis 
instance,  tne  first  pair  member  would  contain  information 
about  transaction  T2's  execution  at  data  Object  f  ana  tne 
second  pair  memoer  wouia  contain  13's  Information,  one  or 
more  pairs  in  a  list  linked  oy  the  first  pair  memoer 
constitutes  a  conflict  nistory.  Tnese  conflict  nistory 
pairs  are  transformed  into  precedence  relations  *nenever  it 
is  necessary  to  make  a  Determination  regard in y  serializaDie 
execution.  Tne  following  entities  nave  pointer  fields  for 
conflict  nistorless  transactions,  suDtransactions ,  aata 
oojects,  and  temporary  versions.  At  tne  data  ooject  and 
temporary  versions,  conflict  mstories  are  components  of  tne 
Du  Log  wnicn  provides  information  regarding  serializable 
execution  to  tne  local  concurrency  controller. 
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cn  t he  other  nana,  conflict  histories  residin'.- 


ci  ... 


the  suotransaction  and  transaction  are  used  to  pass 
information  from  transaction  to  transaction  anc  also  to  data 
oojects  visited  for  execution.  In  addition,  tnese  conriict 
nistories  at  tne  suotransaction  ana  transaction  are  uses  to 
detect  non-ser lalizaDie  execution  at  tne  site  level.  *nen  a 
transaction  is  required  to  rolloacK  part  of  its  atonic 
action  stream,  conflict  histories  are  Durueci  at  various 
Places  in  tne  system  in  order  to  insure  no  "phantom”  non- 
serializaoie  execution  is  detected. 

3.  Data  Objects 

An  array  ( DO-AhHAT) ,  containing  one  nundrea  pointer 
slots,  simulates  aataoase  data  oDjects,  wnen  data  coject  i 
Is  active  at  a  site,  1 1 J  points  to  a  record  wnich 

contains  information  defining  tnat  data  object.  ihe  record 
also  holds  pointers  tor  the  temporary  versions,  loc*  dueue 
and  conflict  nistories  present  at  tne  data  object . 
Temporary  versions  can  reside  at  a  oata  object  in  Quantities 
determined  oy  tne  value  of  "n"  coded  into  tne  aata  ooject  in 
field  n.cM •  For  any  one  simulation  run  tne  aata  coject 
parameter  information  is  static. 

4.  Data  Dictionary 

*hen  an  initiating  sice  preoares  to  execute  a 


suo transaction's  atomic  action  it  must  decide  wnere  tne 
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target  aata  object  is  resident.  Tnis  information  resides  m 
an  array  of  pointers  ( DIC-Arra  ¥ ) ,  uic.A«KAy[u3  noias  me 
initiating  site's  own  site  numoer  so  tnat  no  instance  cf  tne 
simulation  execution  in  a  computer  is  dependent  on  site- 
specific  code,  i.e,,  if  an  initiating  site  neeas  to  <r,o*  wno 
it  is,  it  interrogates  its  instance  of  klC-ARKA if  CuJ  .  t-or 
any  aata  object  1,  d  1C.,  arr  A f  i i  j  contains  a  iinxed  list 
specifying  at  whicn  site  data  od ject  i  is  resident.  Ail  tne 
information  for  fORK,  jdiN  and  rePiicatea  data  is  reflected 
in  tne  data  dictionary  array. 

C.  SIMULATICtt  EXECUTION 

1 •  Specifying  tne  lest  Environment 

defore  simulation  execution  can  Denin,  tr.e 
transaction,  aata  object  ana  aata  dictionary  structures  must 
exist.  Modules  nave  been  programmed  to  provide  tne 
structures  to  tne  simulation  from  information  input  by  tne 
user.  Tne  provision  of  these  structures  is  a  tnree  pnasea 
operation. 

In  phase  one  the  user  specifies  wnicn  components  of 
each  structure  will  oe  active  for  a  given  simulation 
scenario  and  wnat  Information  will  reside  in  eacn  structure. 
Phase  one  Is  executed  by  tne  processing  of  module  bLUOa. 
Here  the  user  Is  prompted  via  menus  to  provide  tne 
Information  whicn  -will  oe  used  to  construct  tne  tnree 
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structures,  information  contained  in  atomic  actions,  oara 
ODjects  and  tne  oata  dictionary  can  oe  specified,  jnce  mis 
intormation  is  input,  it  cannot  oe  cnangeo  fcy  tna  -ser 
except  oy  anotner  execution  of  bLtfuS. 

Pnase  two  taxes  tne  information  provides  tnrougn  tne 
use  of  6LDDS,  whicn  has  Deen  stored  on  tnree  tiles,  ana 
constructs  tne  tnree  pascal  data  structures.  buDix  oulics 
tne  transaction,  suotransaction  ana  atomic  action  structures 
using  only  tne  data  wnich  was  provided  m  specifiny  tne 
aescriptlon  of  the  atomic  actions.  Therefore,  atomic 
actions  must  oe  entered  in  sorted  oraer  in  6l0uS,  i.e., 
(1,1, 1,1),  (1,1, 1,2),  11,1,2,1),  (.1,2,1,11,  11,2,1,21, 
(1,3, 1,1),  etc. 

BLDUU  constructs  tne  data  ooject  structure  from  tne 
information  providea  in  BLOuS :  tne  aata  ooject  numoer  ana 
tne  value  of  "n"  for  that  data  ooject.  A  value  of  o  tor  "n" 
is  not  allowea  by  tne  implementation  oecause  at  tnat  value 
tne  algorithm  uses  a  two-pnase  locKmg  scneme  ana  we  dio  not 
nave  time  to  program  sucn  a  metnoa  into  our  simulation,  f-'or 
tne  construction  of  aata  ODjects,  any  data  ooject  l, 
l<=i<=9*,  whicn  was  not  recuescea  oy  tne  user  m  oluoS,  is 
indicated  by  tne  presence  of  a  ML  value  at  lu.akpai  l i j  . 

The  data  dictionary  structure  is  ouiit  Dy  moauxe 
bldoic .  Again,  tne  information  provided  in  dLlOp  is  usee  to 
oulld  tne  lintced  list  off  array  dIC_aRkat.  as  was  tne  case 
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for  the  data  objects,  any  data  ooject  i  not  in  use  is 
represented  by  a  NIL  value  at  DIC-aRkA* Ll J . 

*itn  tne  execution  of  jL oOa,  oLDTX,  dLuUu,  sL^jiC 
tne  simulation  nas  ail  the  Information  it  needs  to  cegin  a 
run.  One  aaditional  phase  of  structure  specification  allows 
the  user  to  specify  the  aadition  of  temporary  versions  and 
conflict  histories  to  tne  three  structures  built  aocve. 
This  pnase  was  lncludea  in  tne  simulation  to  provide  tne 
user  with  some  degree  of  flexioiiity  in  tne  testing  of 
simulation  modules  and  to  allow  tne  user  to  influence  tne 
simulation  scenario  in  the  areas  dealing  with  ior.o-iiveo 
transactions.  Modules  SAVCHTV  and  CONCnlv  execute  in  tms 
phase. 

2 .  Algorithm  Simulation  execution 

wltn  tne  data  structures  built  in  tne  aforementioned 
routines,  tne  simulation  is  ready  for  execution.  me 
following  discussion  is  an  explanation  of  now  transaction 
activity  is  simulated  and  how  tne  aigoritnm  implementation 
performs  its  functions. 

Once  control  is  passed  to  the  main  loot  ot  tne 
simulation  process  (aLGO-XEST),  a  ranaom  selection  process 
taxes  olace  wnich  simulates  concurrent  processing  of 
suotransactions  on  a  database.  At  ranaom,  a  transaction  and 
one  of  its  subtransactions  is  selected  for  a  set  amount  of 


processing 


we  again  note  that  atomic  actions  are  selected 


In  the  order  in  which  tney  appear  in  a  suotransaction .  Tr.e 
amount  of  processing  activity  allotted  to  a  seiecteo  atomic 
action  is  controlled  by  steps  defined  in  a  CA5&  statement 
within  module  tXtCulL.  for  eacn  random  selection  ot  on 
atomic  action,  one  step  of  the  CaSc  statement  is  executed 
for  tnat  atomic  action.  me  fourteen  steps  m  KAeXurs. 
delineate  tne  execution  activity  for  ail  atomic  actions. 

•within  tne  CASfc.  statement  is  found  tne  code  -rich 
invokes  the  modules  tnat  implement  the  adaptive  concurrency 
control  algorithm  as  a  local  concurrency  controller.  rnese 
modules  insure  tnat  the  atomic  action  activity  at  a  given 
data  object  Is  serlaiizacie.  Local  concurrency  controller 
processes  are  called  whenever  an  atomic  action  has 
conflicted  with  another  in  sucn  a  -ay  as  to  indicate  tr.e 
possiollity  of  non-serializade  execution.  Since  ootn  tr.e 
atomic  action  activity  and  tne  implementation  of  tne 
algoritnm  are  programmed  in  the  CASK  statement,  decisions  as 
to  when  tne  adaptive  concurrency  control  mechanism  is  to  ce 
invo<ea  are  easily  made. 

Conflict  nistorles  constructed  as  a  result  ot  atomic 
action  execution  witnin  the  CaS£  statement  (in  tXLCuTe.)  are 
propagated  to  tne  subtrarsactlon  and  transaction  structures 
in  addition  to  being  placed  at  tne  data  object.  Inis  is 
done  to  simulate  tne  suDtransactlon's  "carrying"  ot  its 
conflict  histories  during  its  travel  through  tne  system. 


Simulation  ot  tne  site  concurrency  controller  is  z r.e 
other  main  tunction  performed  in  tne  main  looo.  At  eecn 
pass  through  tne  main  loop  of  ALgu.TlST,  one  invocation  of 
EXECUTE  and  GLUoALi.Sk  is  performed.  GuGbAu-S*  simply 
inspects  transactions  at  critical  junctions  of  tr.eir 
execution  and  determines  whether  or  not  ncn-ser iaiizaoj.e 
execution  has  occurred.  If  it  has,  seriailzacle  execution 
Is  restored.  Naturally,  since  tne  local  concurrency 
controller  and  tne  global  concurrency  controller  are  com 
implementations  of  tne  same  algoritnm,  tney  utilize  tne 
services  of  common  subroutines.  for  instance,  t  r.e 
DtTECT-GLGbAL«.SK  routine  is  invoxea  when  tne  site  controller 
is  checking  for  non-ser lalizaDle  execution  and  *hen  an 
atomic  action  times-out  at  a  aata  object  ana  is  piaceu  m 
tne  Iock  queue. 

Tne  main  loop  lnvoxes  tXtCuTt.  and  gldbau-ok  until 
all  the  transactions  in  tne  structure  nave  committee. 
Simulation  activity  is  reflected  in  tne  output  revert 
AUDIT. DAT.  Since  AUDIT. DAT  is  a  sequential  log  of  orocess 
activity  from  the  beginning  of  simulation  execution  to  tne 
commitment  of  the  last  transaction,  tne  report  can  oe  usen 
to  audit  simulation  activity  at  critical  stages  of 


processing 


D 


TESTING  SCENARIOS 


A  simulation  run  can  be  taiiorea  to  exercise  trie 
algorithm  in  various  ways.  An  explanation  ot  tne  caraueters 
*nicn  influence  an  execution  ana  the  possible  effect  a 
parameter  can  nave  is  tne  goal  ot  this  section. 

inrough  the  use  of  the  BLDuS  module  tne  user  can  control 
ootn  tne  complexity  of  the  transaction  stream  ana  tne 
conflict  rate  at  data  objects.  That  is,  if  a  large  amount 
of  atomic  actions  are  input  whicn  access  a  sman  numoer  of 
data  oojects,  it  follows  tnat  tne  conflict  rate  will  ee 
nign.  Then  aaain,  it  a  small  number  of  atomic  actions  are 
accessing  a  large  quantity  of  aata  oojects  tne  conflict  rate 
will  oe  small  and  may  well  De  virtually  non-existent.  An 
indication  of  the  amount  ot  syncnronization  overhead 
required  Dy  the  adaptive  concurrency  control  mechanism  can 
be  obtained  oy  inspection  of  tne  auoit  report  tor  varyir.d 
conflict  rates, 

BLDDS  can  also  oe  usea  to  set  tne  "n"  value  tor  aata 
oojects.  This  parameter,  in  conjunction  witn  the  aeiay  time 
factor,  affects  tne  frequency  and  quantity  ot  atomic  actions 
entering  tne  Iock  queue.  uf  course,  the  "n"  value  also 
determines  tne  numoer  ot  temporary  versions  allowed  to  ouiid 
up  at  a  data  ooject.  A  prompt  to  the  terminal  oetore 
enterinq  the  main  loop  allows  the  user  to  enter  the  celay 
time  factor.  The  delay  time  is  tne  time  allotted  to  an 


atomic  action  before  it  times-out  waiting  for  a  snort 
duration  loc<  to  be  removed  at  a  data  object. 

Since  selection  of  atomic  actions  is  predicated  or  a 
ranaom  numoer  generator,  different  seeds  to  tne  generator 
can  provide  different  simulation  results  even  if  all  otner 
test  parameters  are  held  constant.  me  seed  is  requesteu  oy 
a  prompt  Defore  entering  tne  main  Iood  execution. 

The  presence  of  lcng-livea  transactions  at  a  data  object 
is  simulated  oy  tne  construction  ana  placement  ot  a 
temporary  version  at  tne  target  data  ooject.  Another  promct 
at  tne  oeg inning  ot  a  simulation  run  allows  tne  user  to 
Input  temporary  versions  and  Place  tnem  at  tne  desirea  cata 
ODjects,  by  varying  tne  mix  of  tne  aforementioned 

parameters,  a  user  can  generate  a  wiae  variety  or  simulation 
scenarios. 

uur  initial  tests  ot  tne  algontnm  involved  tne  input  of 
successively  more  complex  transaction  scnemes.  we  oeaan 
with  simple  transactions  which  could  not  possibly  conflict 
witn  eacn  otner  in  order  to  insure  tne  valmty  or  our 
design,  io  test  tne  local  concurrency  control  mechanism, 
input  transactions  witn  tne  capaoility  ot  generating  simple, 
two  node  cycles  In  a  precedence  grapn,  as  we  gamea 

confidence  in  tne  simulation,  *e  tried  transactions  wnlcn 
were  sure  to  conflict  both  at  the  data  object  level  ana  at 
tne  site  level.  These  more  complex  transactions  resulted  in 


cycles  Involving  four  or  more  nodes  in  a  nreceoenc® 
relation. 


Once  the  simulation  was  operational,  we  were  concerned 
with  two  objectives.  First,  we  enaevoured  to  insure 
ourselves  that  tne  implementation  ala  m  fact  reflect  tne 
proposed  algorithm  in  tne  areas  of  local  concurrency  control 
and  site  concurrency  control.  Seconaly,  we  were  interested 
in  the  analysis  of  simulation  output  in  order  to  ce  ade  to 
maxe  some  meaningful  Judgements  on  tne  aiu  :ntnm's  oenavior 
and  possibly  its  performance.  Our  testing  wetnoaoiogy , 
designed  to  meet  these  two  ocjectives,  involves  tne  setting 
of  various  simulation  parameters  crier  to  a  simulation  run 
and  tnen  Inspecting  the  output  audit  listing  for  test 
results,  Appenaix  C  proviaes  a  sample  output  listing  iron 
the  AUQIT.DAT  tile  created  as  a  result  of  a  simulation 
execution. 

The  parameters  wnlcn  we  were  acle  to  vary  for  any  one 
simulation  run  are  as  follows.  First,  the  complexity  of  tne 
transaction  input  stream,  l.e.,  tne  quantity  of  atomic 
actions  and  tne  atomic  action  execution  activity  at  any  or.e 
data  object.  Second,  tne  number  of  temporary  versions 
allowed  to  build  up  at  a  given  data  object.  This  parameter 
is  varied  by  changing  the  "n"  value  at  a  data  object  Cn"  at 
a  data  object  is  static  tor  a  test  run  of  the  simulation;. 
Third,  a  variable  time-out  value  for  all  data  objects 


provides  tne  final  run  parameter.  Snorter  delay  ti.es 
Insure  tnat  subtransactions  *111  encounter  snort  term  ioc<s 
at  data  objects  and,  as  a  result,  tri^er  tne  jeadiocx 
aetection  mecnanlsm. 

A.  TRANSACT IUN  STREAM  INPUT 

Tnrougn  tne  use  of  small  transaction  streams  *mch 
proauced  simple  cycles,  *e  assured  ourselves  tnat  tne 
proposed  algorithm  performed  as  an  optimistic  concurrency 
controller  at  noth  tne  data  object  ana  tne  initiating  site 
levels,  Tne  simple  cycles  were  detected,  atomic  actions 
were  rolled  cac<  and  reexecucea  ana  serializaDxe  execution 
was  restored. 

After  tnese  simple  tests  we  allowea  more  involved 
transaction  streams  In  oraer  to  investigate  tne  algorithm's 
behavior  In  more  depth,  we  discovered  at  this  stage  of 
testing  tnat  our  rolloacfc  ana  reexecution  scheme,  following 
tne  detection  of  non-ser lalizaoie  execution,  was  not 
sophisticated  enougn  to  insure  tne  commitment  of  transaction 
streams  wnich  generated  complex  cycles.  That  is,  after 
detecting  a  cycle,  our  strategy  selects  tne  least  costly 
conflict  pair  ceased  on  the  metric;  wnicn  will  creax  tne 
cycle.  It  then  roils  oacx  both  ot  these  atomic  actions  an a 
inserts  tne  atomic  action  wnicn  naa  executea  last  (in  tne 
pair  selected;  into  a  reexecution  list,  me  reexecution 
list  is  a  queue  wnicn  will  always  insure  tnat  tne  atomic 


actions  contained  therein  *111  execute  in  the  oraer  m  *ricn 


they  were  entered,  ana  without  any  interveninq  execution  on 
tne  part  of  other  atomic  actions.  Any  other  atomic  actions 
not  contained  In  tne  cycle  wnicn  must  be  reexecutea  as  a 
result  of  an  atomic  action  in  trie  cycle  being  rollea  cac< 
are  rolled  Dae*  and  reexecuted  predicated  on  tr.eir  selection 
oy  the  random  selection  process, 

Tnis  strategy  is  too  simple  in  tnat  it  appears  to  :e 
necessary  to  also  insure  the  serial  execution  of  tne  otner 
transactions  wnich  were  involved  in  tne  cycle  *nen  tne  cycle 
is  complex;  otherwise,  tne  simulation  experiences  continual 
rolioacK  and  reexecution  or  one  same  atomic  actions. 
However,  we  were  aoie  to  run  the  simulation  for  a  period  of 
time  in  order  to  demonstrate  tne  non-senaiizacle  execution 
detection  capabilities  of  tne  algoritnm.  <*nen  complex 
cycles  resulted  in  continual  rolloacx  and  reexecution, 
aborted  tne  run  and  relied  on  tne  partial  output  for  test 
analysis , 

In  tne  following  sections,  we  discuss  our  ooservations 
reqardlng  the  effect  of  various  testing  parameters  ic  tne 
greatest  extent  possible,  we  neid  an  out  one  or  tne 
simulation  parameters  constant  tor  a  series  ot  simulation 
runs  and  observed  tne  changes  the  one  parameter  producea  m 
the  output.  In  addition,  we  provide  comments  on  our 
experiences  with  tne  proliferation  ot  conflict  Histories 


throughout  system  data  structures 


9.  TIME-GUT  PARAMETER 


The  time-out  parameter  determines  no#  lonq  a  transaction 
waits  for  tne  completion  of  a  transaction  executing  at  a 
data  ooject  cefore  tne  waiting  atomic  action  enters  tne  ioc< 
queue,  inis  parameter  provea  to  be  of  great  consequence 
during  testing,  When  very  snort  delay  times  were  usea, 
subtransactions  would  be  inserted  into  tne  ioc<  queue  at  a 
fast  rate.  Once  in  tne  locK  queue,  tne  aiaorum  requires 
suotransactions  to  pass  conflict  nistories,  which  reflect 
tne  conflict  conaitions  at  tne  data  object,  to  tne 
transaction  level.  Transactions  *nicn  appear  m  tnese 
conflict  nistories  tnen  pass  conflict  nistories  among 
themselves.  what  is  important  in  tnls  scenario  is  that  tne 
tnis  sequence  cf  events  provides  tne  site  concurrency 
controller  with  a  nign  conflict  rate  and  as  a  result,  a  nlan 
propaoliity  of  naving  to  nanaie  fairly  complex  cycles 
lnvolvmq  possioly  many  transactions, 

Tne  end  result  is  a  nian  roiloacK  rate  *nicn  couin 
easily  involve  all  tne  atomic  actions  wnicn  nave  executec  up 
to  that  point.  Under  tnese  conditions,  and  because  our 
simulation  uses  a  slmpie  rolioac*  and  reexecution  strategy, 
the  simulation  Drocess  experiences  a  continual  cycle  of 
rollback  and  reexecution  witn  on*y  a  small  cnance  tnat 
transactions  will  oe  allowed  to  commit.  From  test 
observations  it  was  evident  tnat  tnis  situation  gets  worse 


as  more  atomic  actions  are  forced  into  tne  loc<  queje. 

Therefore,  longer  transaction  input  streams  with  many  atomic 
actions  addresslnq  a  small  numuer  ot  data  ocjects  win 
continually  undergo  a  repetition  ot  rollback  ana  reexecution 
without  commits, 

C.  THE  "n"  PAKA*ET£k 

Since  the  "n"  parameter  determines  ho*  many  temporary 
versions  are  allowed  to  resiae  at  a  data  ooject,  it  aiso 
contriDUtes  to  tne  problems  ooserved  wnen  snort  aelay  times 
were  used.  Tne  rate  at  wnicn  subtransactions  enter  tne  icck 
queue  is  accelerated  wnen  tne  "n"  parameter  is  small  it  is 
obvious  that  tne  two  parameters  "n"  and  tne  aelay  time, 
together,  affect  the  rate  at  wnicn  a  lock  queue  is  filiea. 

To  better  understand  wnat  effect  "n"  ana  tne  aelay  factor 
nave  on  processing,  we  tested  witn  a  fairly  long  and  complex 
transaction  stream  and  varied  "n"  and  tne  delay.  Tne  i 

results  were  very  interesting. 

when  "n"  was  set  low  (values  on  the  oraer  ot  l  or  i) 
with  a  snort  delay  time  (values  ot  i,2,J),  tne  site 
controller  was  unable  to  find  a  seauence  of  roilcacxs  ana 
reexecutions  wnich  would  commit  tne  transactions .  *e 
ooserved  longer  cycles  involving  more  transactions  wnicn 
necessitated  the  rollback,  time  ana  again,  of  aii  atomic 
actions,  with  a  large  "n"  value  and  a  long  aelay  time  cne 
same  transactions  committea  in  a  snort  period  of  time,  in 
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this  case,  Inspection  of  the  audit  listing  snowed  tnat  tne 
local  concurrency  controller  and  the  site  concurrencv 
controller  nad  to  contend  with  snorter  cycles  ana  t'et  fewer 
transactions  were  involved  in  the  cycles,  a  long  ueiay  time 
and  "n"  set  high  seems  to  result  in  a  lower  conriict  rate 
tor  tne  local  concurrency  controller  wnicn  maos  it  easier 
tor  tne  algorithm  to  nna  a  serializable  execution  sequence, 
with  a  more  sophisticated  rollback  ana  reexecutlon  strategy 
we  feel  tnat  tne  algontnm  would  oe  aole  to  contena  w  it  n 
these  nign  conflict  rates  caused  oy  suctransactions  encerlna 
tne  lock  queue,  ut  course,  this  can  also  ce  controlled  cy 
tne  proper  selection  of  tne  two  parameters. 

while  attempting  to  find  a  combination  of  small  "n"  ana 
snort  delay  times  wnicn  woulo  still  commit  tne  transactions 
we  observed  longer  ana  longer  execution  times  for  tne 
simulation  runs.  Tnis  is  understanaacle  since  tne  conflict 
rate  and  tne  complexity  of  cycles  arives  the  rolioack  and 
reexecution  process. 

C.  CONCURRENCY  CONTHOL  QVEkHEaO 

It  nas  oeen  argued  tnat  under  optimistic  concurrency 
control  tne  overhead  associated  witn  nonconflictina 
transaction  synchronization  is  low  and  tnat  tnere  is 
potentially  hign  overneaa  tor  conflicting  transactions  and 
restoration  of  serializaole  execution.  Our  observations  on 
tne  performance  of  tne  proposed  algorithm  pear  this  argument 
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out.  for  noncontlictir.g  transactions  tne  only  aimcricr--. 
activity  ODservea  was  tne  construction  ot  temporary  versions 
and  tne  commitment  ot  transactions.  with  ccnrlictir.q 
transactions  tne  aigoritnm  performed  a  great  aeai  of  -or*  in 
the  areas  of  construction  of  conflict  histories,  detection 
of  cycles,  propagation  of  conflict  histories,  detection  ot 
non-serlallzaoie  execution,  ana  tne  restoration  ot 
serializaele  execution. 

Cf  great  concern  to  us  during  tne  lmpiementat ion  end 
testinq  of  tne  aigoritnm  was  tne  amount  ot  processing 
required  to  deal  witn  tne  conflict  histories.  conflict 
histories  are  propagated  to  data  structures  in  a  numcer  ot 
ways,  when  subtransactions  tor*  throuan  the  system  tney 
deposit  and  collect  conflict  nistories  at  data  objects. 
Transactions  excnange  conflict  nistories  muring  cieaaiocx. 
detection  ana  during  site  concurrency  controller  activity. 
Tne  housekeeping  of  tnese  conflict  histories  during  the 
rollback  and  commit  processes  prove  to  oe  quite  expensive, 
bvery  instance  of  a  conflict  nlstorv  pair  wmcn  was  created 
oy  the  execution  of  an  atomic  action  naa  to  oe  tracxea  aown 
tnrougnout  tne  system  whenever  the  atomic  action  vas  roiiea 
oack.  It  was  also  necessary  to  purge  tne  system  ot  conflict 
nistories  related  to  a  transaction  wnen  tnat  transaction 
committed,  without  this  purge  process  false  information  was 
introduced  into  precedence  relations  which  resuitea  in 
erroneous  cycles  ceing  detected,  inis  is  unaerstanaapiy  an 


untenable  situation,  frurtner  investiaatlon  into  cnis  as^ct 
of  the  ai  garltnns  is  necessary  to  reouce  the  over.-jeoJ 
introduced  by  the  propagation  of  tne  conflict  nistcrias. 
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VII.  CONCLUSIONS 


In  tnis  thesis  we  have  investigated  three  related  topics 
of  current  interest  In  tne  tieia  o f  distributed  computer 
systems  softwares  optimistic  concurrency  control, 
partitioned  networ<s,  and  long-lived  transactions. 

a  previously  proposed  optimistic  concurrency  control 
algoritnm  was  implemented  and  tested.  Tne  test  resuits  ot 
tne  algoritnm  and  our  implementation  of  it  nave  seen 
discussed  aoove  tCnapter  VI),  we  present  nere  our 
conclusions  on  tne  feaslDility  ana  practicality  of  tne 
algorithm. 

Tnough  It  Is  understood  that  any  worfcade  "optimistic" 
concurrency  controller  needs  to  oerrorm  well  during  oenocs 
of  low/no  conflict,  it  is  still  necessary  for  It  to  sanction 
in  a  reasonaDle  manner  it  tne  conflict  rate  is  hiun.  if  tne 
transaction  stream  wnicn  Is  input  into  our  simulation  is 
sucn  tnat  tne  conflict  rate  is  mgn  ana  cycles  of  lenatn 
greater  than  tnree  are  present,  tnen  our  implementation  ot 
the  algoritnm  often  will  not  wor<.  wni  le  this  was  discussed 
aoove  in  Chapter  VI,  we  want  to  empnasize  nere  tnat  tne 
problem  appears  to  reside  not  in  tne  algoritnm  itself,  out 
in  our  implementation  of  it.  l’nis  needs  to  pe  verified  ana 
is  out  one  of  many  places  wnere  turtner  investigation  is 


required. 


we  do  believe  tnat  tnis  proDlem 


is 


not 


insurmountable  and  tnat  a  more  sophisticated  aooroacr.  to 
selecting  wnicn  transaction  to  rollback  and  re-execute  *nen 
breaking  a  cycle  Is  a  likely  solution. 

Of  greater  concern,  because  it  deals  more  closely  with 
the  actual  aigontnm  as  opposed  to  our  implementation,  is 
the  proolem  of  eliminating  conflict  nistory  pairs  «mcn  are 
no  longer  valid.  That  is,  wnen  a  rolioack  occurs  Cor  a 
transaction  commits)  it  is  imperative  to  remove  from  the 
system  tne  conflict  pairs  whicn  reflect  tne  conrlicts  wnicn 
are  no  longer  present.  This  is  not  trivial  to  accomplish 
without  a  lot  of  wasted  effort  Decause  the  nairs  to  oe 
removed  may  nave  been  propagated  extensively  to  otner 
transactions,  data  oojects,  and  temporary  versions,  in  our 
simulation,  whicn  is  of  a  small  system  witn  few  oata 
objects.  It  was  possible  to  simply  loo*  everywhere  for  tne 
conflict  pairs  wnicn  needed  to  pe  purgea.  inis  would, 
nowever,  not  be  feasible  in  a  real  system.  «e  none  tnat 
further  investigation  or  this  problem  would  reveal  a  method 
for  keeping  track  of  where  tne  conflict  histories  are 
propagated,  tnus  enaDiing  a  much  more  efficient  scneme  for 
purging  tnem. 

Next,  we  considered  how  tne  concurrency  control 
aigoritnm  would  handle  a  specific  class  of  transactions , 
called  "long-lived",  which  presents  systems  with  some  unioue 
proDlems,  It  appears  tnat  our  aigoritnm  may  be  aoie  to  deal 
wltn  long-lived  transactions  because  tne  temporary  version 


mecnanism  causes  long-lived  transactions  to  oe 
indistlngulsnaole  from  otner  transactions,  Tne  aiooritnm 
can  also  present  a  more  realistic  view  tc  tne  user  as  to  tne 
status  (wnetner  or  not  it  is  committed/oermanent )  ot  any 
long-lived  transactions  which  might  nave  been  input. 

The  tnird  topic  wnicn  was  investigated  was  that  of 
partitioned  networxs  within  a  oistriDUted  aataoase  system. 
Our  algorithm  also  seems  to  be  naturally  extensible  to  the 
partitioned  environment  since  tne  mecnanisms  required  for 
detecting  ana  resolving  cycles  ana  nonser lalizaoility  are 
already  present.  Thus,  extension  of  tne  alqoritnm  to  enaoie 
it  to  nanaie  a  partition  merge  snouid  oe  tarrly 
straigntforward,  mis  is  certainly  yet  anotner  area  wr.ere 
furtner  wor.<  could  be  accomplished  -  tne  actual 
implementation  of  the  extenaea  algorithm  to  enaoie  its 
operation  in  partitioned  systems.  Additionally,  tnere  is  a 
need  for  further  research  into  tne  prooiem  of  how  to  aeal 
wltn  long-lived  transactions  wnlch  are  oresent  in  a  system 
which  oecomes  partitioned. 
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APPENDIX  A 


THE  PROPOSED  ALuOkIIHM 


The  three  phases  of  the  proposed  adaptive  ontimistic 
concurrency  control  algorithm  are  aescrioea  below,  ine 
first  phase  addresses  tne  execution  or  transactions  at  a 
data  ooject.  Detection  of  non-ser lalizaole  execution  is  tne 
objective  of  tne  second  phase  ana  tne  tmrc  phase  oeais  witn 
tne  commitn'ent  of  transactions. 


Execution  Phase: 


while  (more  suotransactlons  in  tnis  transaction)  on 
FOR  eacn  suotransaction  DO  or  Du  CQncurren idt 

while  (more  atomic  actions  in  this  suotransaction )  dl 
cnecx  for  lock  on  data  ooject  to  oe  accessed 
If  1  OCX  IrtEA 

WAIT  FOR  ri*E-auT 
END  IF 

IF  no  lock  THEN 
acquire  lock 
read/update  data  ooject 
inspect  do  log  for  conflict 
IF  conflict  The* 

construct  precedence  relation  from  ac  log 
set  s  equal  to  numoer  of  temporary 
versions  in  tne  ao  log  witn  whicn 
current  transaction  is  in  conflict 
IF  non»sr  execution  IhEn  restore  sr  execution 
send  message  telling  conflicting 
transaction  to  roil  oacx  to  site 
of  non-sr  execution  and  restore 
serlallzaole  execution  lr.  most 
economical  manner 
update  conflict  nistory 
IF  read/update  based  on  temporary 
version  Then 

mark  new  version  as  t(v) 


5 

mar*  new  version  as  tCr) 

END  If” 

ELSE 

upaate  conflict  nistory 
mark  new  version  as  t(«) 

END  If 
ELSE 

S  =  0 

mark  new  version  as  tir) 

END  IF 

Dusn  entry  onto  do  log 
IF  s  <  n  THEN 
release  lock 
END  IF 
ELSE 

enter  lock  queue 

send  message  to  own  initiating  site  giving 
conflict  history  ana  location 
enter  detect  non-sr  detection  pnase 

(if  n  =  0  consider  all  locks  ana  ail 
enqueued  locks  as  a  part  of  transaction 
conflict  nistory) 
wait  for  lock  to  De  released 
END  IF 
END  WHILE 
END  FOR 

IF  concurrent  subtransaction  THEN 
merge  conflict  nistories 
END  if 
END  WHILE 


Detect  won-SR  Execution  Phase: 

IF  conflict  nistory  empty  THEN 

IF  receive  conflict  nistories  ThEj» 

send  message  to  initiating  site  of  conflicting 
transaction  saying  'trans  comm it ted" 

END  IF 

enter  commit  phase 
ELSE 

FOR  eacn  transaction  in  conflict  nistory  DC 

send  copy  of  conflict  nistory  to  initiating  site  ot 
eacn  transaction 
END  FOR 

FOR  each  conflict  nlstory/precedence  relation  receivea  do 
construct  precedence  relation 

IF  precedence  relation  snows  non-sr  execution  then 
restore  serlalizaeie  execution 

IF  transactions  still  executing  then 


select  least  costly  transaction  Dair  tro^ 
among  transactions  that  are  still  executing 

ELSE 

select  least  costly  transaction  cair 
END  IF 

transactions  In  selected  transaction  pair  roil 
baoc  to  site  of  conflict  ana  execute  m 
opposite  order 
update  conflict  history 

IF  read/update  based  on  temporary  version  then 
mar*  new'version  as  tCO 
ELSE 

mar*  new  version  as  tCr) 

END  IF 
ELSE 

send  precedence  relation  to  initiating  site  or 
transaction  adaed  to  preceaence  relation 

END  IF 
END  FUR 

IF  receive  'trans  committed'  message  then 

pass  tnis  message  to  initiating  site  from  wnicn 
received  most  recent  precedence  relation 

END  IF 

IF  transaction  completea  Th&n 
enter  commit  pnase 
ELSE 

continue  witn  execution  phase 
END  IF 
END  IF 


Commit  Pnase: 

IF  ail  temporary  versions  are  t(r)  ThEN 

send  commit  message  to  all  sites  at  wnicn 
transaction  executed 

ELSE 

FOR  eacn  t(w)  version  do 

IF  t(w)  site  reports  'abort'  then 
roll  oacK  to  site  of  aoort 
re-execute  remainder  of  subtransaction 
enter  detect  non-sr  execution  pnase 
ELSE 

IF  all  t(w)  versions  report  'ready  to  commit'  then 
send  commit  message  to  ail  sites  at  *mcn 
transaction  executed 

END  IF 
END  IF 
END  FOR 
END  IF 


APPENDIX  b 


SIMULATION  SOURCE  CuDe. 


(*  type  declarations  tor  simulation  modules  *) 
(*  contained  in  tile  "strtype.pas H  *) 


(*  pointer  types  *3 


otr.cn.pair  =‘*cn-palr.rect; 
ptr.trans  =  “trans-rect; 
ptr-strans  =“strans«rectj 
ptr-dic  s  “dic-rect; 
ptr-aa  a  "aa.rect; 
ptr-tv  a  “tv.rect; 
ptr.locK.q  =* ioc<_q«r ect ; 
ptr-do-perm  s  *do«.perm«rect; 
ptr-cn  a  -cn.rect; 
otr.reexec  =  "re^exec-rect ; 


(*  record  types  *3 


re-exec.rect  =  record 
init.site  :  cnar; 
trans.num  :  integer; 
st-num  integer; 
aa.nura  :  integer; 

cto.id  :  integer; 

nxt  s  ptr.reexec; 

end; 


do.perm.rect  =  record 
cn.ptr  :  ptr.cn; 
tv.pcr  s  ptr-tv; 
locK-a-ptr  :  ptr-lock.q; 
no.reads  :  integer; 
no. writes  :  integer; 
lock  :  oooiean; 
n.cnt  :  integer; 
s.cnt  ;  integer; 
locx.qty  :  integer; 
cn.seq  :  integer; 
end; 

(**9**y*«***«*******************«***********»***«**«*****  *+  ) 

tv.rect  =  record 

tv-ch.ptr  :  ptr-cn; 
aa.id  :  record 

trans.site  ;  record 
init.site  :  cnar; 
trans.num  j  integer; 
end; 

st.num  :  integer; 
aa.nuni  :  integer; 
r.w.iig's  cnar; 
do. id  :  integer; 
cn.seg  t  integer; 
metric  j  integer; 
end; 

metric. sum.  j  integer; 
nxt  :  ptr.tv; 
stat.fld  :  char; 
end; 

(***:M*0**********«***************  ****************  ****♦»**) 


aa.rect  =  record 
aa.ld  :  record 

trans.site  s  record 
init.site  :  char; 
trans.num  :  integer; 
end; 

st.num  :  integer; 
aa.num  :  integer; 
r.w.fig':  cnar; 
do. id  :  integer; 
cn.seq  :  integer; 
metric  :  integer; 
end; 

stat  :  cnar; 
time.val  s  integer; 


step  .num  :  lnteoer; 
nave.loc*  :  ooolean; 
in.iocicq.flg  :  ooolean; 
nxt  :  ptr.aa; 
end; 


strans.rect  =  record 
aa.ptr  :  ptr.aa; 
st. id  :  integer; 
aa.qty  :  integer; 
aa.tr.qty  :  integer; 
aa.tln.qty  :  integer; 
exec-flg  :  ooolean; 
for*. fig  :  ooolean; 
st-cn.Dtr  :  ctr-cn; 
fnetric.suTi  s  integer; 
nxt  s  ptr.strans 
end; 


trans.rect  =  record 
st.ptr  j  ptr.strans; 
st.qty  ;  integer; 
exec.flg  :  ooolean; 
st.tr.qty  J. integer; 
st.fln.qty  :  integer; 
trans.site  :  recora 
init.site  :  cnar ; 
trans-num  ;  integer; 
end; 

nxt  :  ptr.trans; 
trans.cn. otr  :  ptr.cn; 
end; 


cn.rect  *  record 
nxt  :  otr-cn; 
pair.ptr  ;  ptr.cn.palr; 
aa.id  :  record 

trans.site  :  record 
init.site  :  cnar; 
trans.num  :  Integer 


end; 

st.nuro  :  integer; 
aa.num  :  integer; 
r-w.flg':  cnar; 
do. id  :  integer; 


cn.seq  :  integer; 
metric  s  Integer; 


cn.pair.rect  =  record 
metrlc.sum  :  integer; 
aa-id  ;  record 

trans.site  :  record 
lnit.slte  :  cnar; 
trans.num  ;  integer; 
end; 

st.num  s  integer; 
aa.num  :  integer; 
r.w.flg  ;  cnar; 
ao.id  :  integer; 
cn.seq  ;  integer; 
metric  :  integer; 
end; 
end; 


loctc.q.rect  =  record 
nxt  :  ptr.locK.q; 
locic.cn.ptr  :  ptr-cn; 
aa.id  :  record 

trans.site  :  record 
lnit.slte  :  cnar; 
trans.num  :  integer; 
end; 

st.num  s  integer; 
aa.num  :  integer; 
r.w.flg  :  cnar; 
oo.id  :  Integer; 
cn.seq  :  integer; 
metric  :  integer; 
end; 
end; 


dlc.rect  =  record 
nxt  :  ptr.dic; 
site. id  :  cnar; 
end; 


BO 


(♦  array  types  *) 


data.003. array  =  array  [  l .. S>*j  or  per. ao. perm; 
data.dlc.array  =  array  CO. ,9*)  or  ptr.aic; 


(*  variable  declarations  for  simulation  moauies  *) 
C*  contained  in  tile  "strvar.pas"  *) 


***********) 


(*  pointer  variables  *) 


i********  ) 


trans.ptr  :  ptr.trans; 
reexec.ptr  i  ptr.r eexee; 


C*  array  variables  *) 


do. array  :  data.oo J. array ; 
die. array  :  data. ale. ar ray ; 


C*  record  variables 


re.exec.rec  :  re.exec.rect; 
tv.rec  :  tv.rect? 
aa.rec  :  aa.rect; 
strans.rec  :  strans.rect; 
trans.rec  :  trans.rect; 
ch-rec  :  cn.rect; 
cn.pair.rec  :  cn.pair.rect; 
locK.q.rec  ;  lock.q.rect; 
aic.rec  :  dic.rect; 
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C*  file  declarations  *) 


:****«) 


*  »  *  *  *  *  ) 


trans  :  file  of  aa.rect; 

audit,  data,  aatadic,  dobj,  runfiie 


text; 


program  oldds  C input , output , trans  ,aataaic , uod3 ) ; 

(*  tnis  ouilds  tne  data  structures  for  aiao.test  *j 
TYPE 

%If«CLuDE  'strtype.pas  /nolist' 


^INCLUDE  'strvar.pas  /nollst' 

cn  :  cnar; 

ans,a  sinteger; 

correct , stoprun  :  boolean; 


PROCEDURE  read. integer  (VAR  num  {integer j; 


■•**** ) 


(*  mis  reaas  an  integer  from  tne  terminal  in  cnar  format 
and  edits  it  tor  type.  It  loops  error  rnsgs  until  a  legal 
Integer  is  input.  *) 

CONST 

goodset  =  ['O'. . 'y'J ; 
maxlntdig  =  U); 


line  :  array  u.,dOl  of  char; 
index, lengtn  ;  integer; 
good. answer  Boolean; 


BEGIN 

gooo. answer  ; =  false; 
while  not  good. answer  DO 
BEGIN 

index  :*  i; 


READUine(. index.)); 

attILE  not(llne( .index. )  =  '  ')  ana  nat  eom 
and  (index  <  maxlntdig)  uo 
BEGIN 

index  :=  inaex  +  1; 

RtAD(llne(. index,)) 
end; 

READLN; 

lengtn  :  =  index; 
good-answer  := 

(index  >  l)  or  not (line (. inaex . )  =  '  '); 

FOR  index  :=  i  T a  lengtn  uo 
good. answer  := 

good-answer  and  ( line (, index , )  in  uooaset); 
IF  not  good-answer  Then 
BEGIN 

Fur  index  ;s  1  10  lengtn  uO 
*RIIfc(iine( . index. ) ) ; 
k  I T  E  L  ■  •  C * i s  not  an  integer')? 
wRITELN ( "please  input  again') 

END 

END?  (*wniie*j 
num  : =  0; 

FOR  index  :=  l  10  lengtn  DC 

nuiti  :  =  nu.m  *  lu  ♦  ( ora  ( line  (.  index .)) -ora  ('  0 ')  j 
END;  (*proc») 


PROCEDURE  write-query  (VAR  ans  ;  inteaerj; 


BEGIN  (**q«) 

wRITELN ( 'this  proc  builds  new  flies  for  testacc'); 

wRITELN ( 'wnat  do  you  want  to  cnange.''); 

wRITELN; 

wR IIELN ( '  1  :  atomic  action  tile'); 
wRIT£Ln('2  :  data  dictionary'); 
wR IT£Ln ( ' 3  :  data  object  file')? 
wRITELN ( ' 4  ;  notning'); 
wRITELN? 

wRIT£( 'respona  witn  single  alglt===>'); 
read-integer (ans) ; 

END;  (*wq*) 


PROCEDURE  cnec<-stop  (var  stoprun  ;  ooolean; 


BEGIN  C*cneCK.Stop* ) 

It  not  icn  in  C  'y - ,  'Y  ' ,  'n '  ,  'h ') )  ihln 
cn  s=  '2'; 
case  cn  of 

'n','N'  :  stoprun  ;=true; 

'y ','i'  :  stoprun  :=  false; 

'2'  ;  kkRITELn  ( 'error  try  again'); 

END;  (*case») 
end;  (*check-stop*) 


PROCEDURE  const. trans; 


C  *  tnis  proc  Pullds  tne  trans  file  dls<  from  interactive 
input  *) 

VAR 

stoprun, correct  s  boolean; 
tempi.aa , tempz.aa  :  aa.rect; 
in-int  :  Integer; 
outcn,in.cnar,cn  s  cnar; 

BEGIN  (*Ctl*) 

stoprun  s  =  false; 

WITH  tempi. aa«aa.id, trans. site  uD 
BEGIN  (**Itn*) 

lnit.site  :=  'O'; 
trans. num  ;s  0; 
end;  (*wicn*} 

WITH  tempi. aa.aa. id  DO 
BEGIN 

st.num  : s  0; 
aa.num  :*  0; 
r.w.tlg ' : =  '  '; 
do. id  ; =  o; 
cn.seq  : =  o; 
metric  :=  0; 
end;  (*witn*) 

WITH  tempi. aa  DO 
BEGIN 

stat  :s'x'; 
time.val  : =  -i; 
step.num  :=  o; 
nave.ioc<  ;=  false; 
in.locicq.t lg  ;=  false; 
nxt  :=  nil; 
end;  (*witn*) 
temp2.aa  ;=  tempi.aa; 

REWRITE  c  trans ) ; 


REPEAT  (*untll  stoprun  =  true*) 

wHITELN ( 'you  are  entering  an  atomic  action'); 
wRITeln; 

wRITELN ( * tne  last  aa  you  entered  was'); 
wRITELN > 

wITh  tempi. aa.aa.id.trans. site  cu 
wRITt Unit. site  ; i , trans-num  ;3); 
wITn  tempi. aa.aa. id  DQ 

wRIT£(st.num  si,aa- num  ;3,ao.id  si, metric  si); 
WRITELN (tempi. aa«  time.val  s  3 ) ; 
wRITELN ( 'enter  tne  new  init-site  integer'); 
READLMCcn) ; 

WHILE  not  Ccn  in  C '0' , ' 1 ' ,  '2 '  ,  ' 3  '  ,  '4  '  ,  '5  '  , 

'6', '7', '9', '9')  )  LO 

BEGIN 

WrtlTElN ( 'error  try  again'); 

KEADLN(cn) 

end; 

with  temp2.aa,aa.id. trans-site  DU 
BEGIN 

inlt-site  :=  ch; 

(♦converts  init  site  to  char  tor  tile*) 
wRITeLnC 'enter  tne  new  trahs  numoer  integer'); 
read. integer (trans-num) ; 
end;  (*with*) 

WITH  temp2.aa . aa.id  CO 
BEGIN 

wRITELnC 'enter  new  subtrans  numcer  integer'); 
read.integer ( st.num) ; 

■wkITELNC  'enter  new  atomic  action  num  integer') 
read. integer (aa.num) ; 

wriieLn(  'enter  new  aata  ODject  nun  inteaer'); 
read.integer (do-id) ; 
wkITEL.n  ( 'enter  new  metric  integer'); 
read.integer (metric) ; 

wrxieLn  ( 'enter  r  for  reaa  or  .v  for  write'); 
Peadlw ( cn ) ; 

wrilLE  not  (cn  in  i'r','w'])  uO 
BEGIN 

wRiteln ( 'error  try  again'); 
keaqln ( cn ) 
end; 

r.w.tig  : =  cn; 
cn.seq  ; =  o; 
end;  (*witn*) 
wITH  temp2.aa  DQ 
BEGIN 

tlme.val  : =  - 1 ; 
outcn  s=  'x'; 
stat  s  =  'x'; 
step. num  ; =  o; 


nave.locx  :=  false; 
in.locxq.fig  :=  false; 
nxt  ;=  nil; 

END;  (**ltn*) 

*  RUE  C  trans,  temp  2-aa) ; 
tempi. aa  :  =  cemp2.aa; 

aRITELN ('enter  y  or  n  if  you  #ant  to  enter  anotner  aa ' ) ; 
READLN(cn); 

cnecx.s top i stoprun, cn) ; 
until,  stoprun; 

(*tne  last  aa  on  tne  file  is  a  trans.num  999  record*) 
temp2-ad.aa.ia. trans.site. trans-num  s=  99v; 
aRITECtrans ,  temp2.aa) ; 

End;  (*ctl*) 


PROCEDURE  const. aata.dic; 

(*  tnis  proc  builds  tne  data  dictionary  aistc  file  from 
interactive  input  *) 


VAR 

stoprun, stopsite  :  boolean ; 
cased, curd  ;  ptr-dic; 
cn,inlt.slte  j  cnar; 
donum, in. int  :  integer; 
ale  ;  text; 

BEGIN  (*1*) 

REWRXTECdatadlc)  ) 
stoprun  ;=  false; 
aonum  ;=  i; 

aRITELn ( 'enter  tnis  sites  number-integer'); 

HEADL.N  ( inlt.site ) ; 

«HIT£b.Udatadic,  inlt.site) ; 
repeat  (*until  stoprun  =  true*) 
stopsite  :  =  false; 

REPEAT  i*until  stopsite  =  true*) 

*RITELN c 'note  :  enter  a  9  it  oata  item  not  used', 
"'  at  all'); 

xRITEuN ( 'enter  a  site  tor  data  item  ', aonum  :  2); 
READuN(inlt.site) ; 
m nITELNCdat ad lc, init-slte); 

If  inlt.site  <>  ' 9 '  Then 
BEGIN  C  *7* ) 

WhITELN c 'another  site  for  data  item 
'donum  ;  2,'?'); 
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ahlTELNC 'answer  y  or  n'); 

REAOLN(cn) ; 

cneck»stop(stopsite,cn)  ; 

ENL  i*7*) 

ELSE 

stopsite  :=  true? 
until  stopsite; 
donum  :=  donum  +  i; 

«RiTfcLN(aataaic,'x'); 

wRITELn ( 'continue  witn  data  item  ',aonun.  :  2,'?'); 
WRITELN ( 'answer  y  or  n'); 

KtAULNCcn ) ; 

cneck-stop(stoprun,cn) ; 
until  stoprun; 

END? 


PROCEDURE  const-do? 

C*  this  ouilds  tne  data  object  tile  from  interactive 
input  *) 

VAR 

ifin-int  sinteger? 
stoprun  :  boolean; 
ch  :  cnar; 

BEGIN  (*l*) 
i  ;  =  i? 

stoprun  :*  false? 

REWRITE  (doojj? 

repeat  (*until  stoprun  =  true*) 

wRITELN  ( 'enter  tne  n  value  for  data  object  ',1  :  <:); 
read-integer iin.int) ; 

*»RITELN  (aoo  j  ,  in-int) ; 

wRITELN < 'answer  y  or  n  if  more  do.s  to  enter'); 
REAULN(cn) ? 

cneck-stopt  stoprun , ch) ; 
i  :=  i  ♦  1? 

UNTIL  stoprun; 

end;  (*l*) 


C*  main  for  program  oldds  *) 


BEGIN  (*i») 

REPEAT  (*untll  stoprun*) 


correct  ;*  false; 
a  i=  l; 

while  correct  =  false  DU 
BEGIN  ( *2* ) 

write. query (ans ) ; 

IF  (ans  in  11,2,3,41)  then 
correct  :=  true; 

END;  ( *2 *) 
case  ans  of 

1  !  BEGIN 

const. trans ; 
trans.ptr  :=  nil; 

END; 

2  :  const-data. aic ; 

3  ;  const.do; 

4  ;  a  :=  a  ♦  l; 

End;  (*case*J 

wRITELN ( 'more  changes?  answer  y  or  n'); 
REAOLN(Ch) ; 

cneck.s toots top run,ch) ; 
until  stoprun; 
end.  (*!*) 


(INHERIT  C'syssilbrarysstarlet')fENV±RUNNENf  ( ' bui las . pen '  H 


MODULE  8  ( input , output , audit , data , runfi le , trans , aataaic » 
doo j ) ; 

(*  tnls  moaule  creates  tne  glooai  procedures  * ) 

TYPE 

% INCLUDE  'strtyoe.pas  /nolist' 

VAR 

%Include  'strvar.pas  /noils t' 


(GLOBAL] 

PROCEDURE  bldtx; 

l*  this  proc  oullas  tne  trans  structure  from  tne  recora  tile 
trans.dat 


VAR 

baset,curt  :  ptr. trans; 
curst, basest  :  ptr.s trans ; 
curaa,oaseaa  :  ptr.aa; 
tempaa, tempaak  ;  aa.recc; 


PROCEDURE  addt  (curt  i  ptr-trans; 

tempaa  :  aa.rect); 

(*  fill  cne  trans  record  *itn  aata  *) 

BEGIN  ( *aodt* ) 

curt*. st. qty  :=  0; 
curt*.exec.f lg  :=  false; 
curt*.st.tr.qty  ;  =  o; 
curt*. st. tin. qty  ;=  0; 
curt*. trans. cn.ptr  :=  nil; 
curt*. trans.site.ir.lt. site  ;  = 

t empaa.aa. id. trans.site. ini t.site; 
curt*. trans-site. trans. num  := 

tempaa, aa.io. trans.site. trans. num; 
curt*.nxt  :=  nil; 

END;  (*adat$) 


PROCEDURE  adast  (curst  :  ptr-strans; 

tempaa  ;  aa.rect); 

(*  fill  one  suotrans  record  witn  aata  *) 
BEGIN  (*adost») 

curst*. st-ld  :  =  tempaa, aa-id.st.num; 

curst*. aa.qtyjs  u; 

curst*. aa.tr.qty  : =  0; 

curst*. aa.fin. qty ' :=  u; 

curst* .exec.fig  :=  false; 

curst* . tor*. fig  ;=  false; 

curst* , st.cn.ptr  :=  nil; 

curst*. nxt  nil; 

END;  (*addst* ) 


PROCEDURE  adaaa  (curaa  :  otr-aa; 

'tempaa  ;  aa.rect); 


C*  fill  one  atomic  action  recora  *itn  data  *) 


BEGIN  ( *addaa* ) 

curaa* .aa.ia  :=  tempaa. aa-ia; 
curaa*, stat  :=  tempaa, stat; 
curaa*. time. val  :  =  tempaa. time-val ; 
curaa*, step.num  :  =  o; 
curaa*. have. lock  :  =  false; 
curaa* . ln-locxq-f lg  :=  false; 
curaa*. nxt  :=  nil; 

END;  (*addaa*j 

(♦main  loop  for  bldtx*) 

BEGIN  <*1*) 

READCtrans, tempaa) ; 

tempaa2  :  =  tempaa; 

ne* (curt) ; 

trans.ptr  s=curt; 

oaset  :=  curt; 

addt (curt/ tempaa ) ; 

ne* (curst) ; 

oasest  ;=  curst; 

addstC curs t, tempaa) ; 

curt*.st.aty  :=  curt*,st.qty  +  1; 

NE*( curaa); 

paseaa  :=  curaa; 

aadaa ( cur aa, tempaa) ; 

curst", aa.qty  ;=  curst* .aa.qty  +  i; 

trans.ptr*. st-ptr  ;=  curst; 

curst" .aa-ptr  ;*  curaa; 

RE ad (t ran s, tempaa) ; 
rfhILE  not  eof  (trans)  DU 
BEGIN  (*2*) 

IF  tempaa, aa.ld. trans-site. crans.num  <>  9*9  TnEN 
BEGIN  (*3*) 

IF  temoaa.aa.id.trans.slte.trans.num  <> 
tem pa a2, a a-io, trans «s ite.tr an s-num  Xhtr* 
BEGIN  (*4*) 

NE* (curt ) ; 

aadtCcurt, tempaa); 

baset*.nxt  :=  curt; 

n  t  #  ( cur  st) ; 

aaastCcurst, tempaa); 

curt“.st.qty  :=  curf.st.qty  +  i; 

curt* . st.ptr  ;=  curst; 

NErf(curaa) ; 

aodaa (curaa, tempaa) ; 

curst*. aa.qty  :  =  curst*. aa.qty  +  ;; 

curst* , aa-ptr  :*  curaa; 

oaset  :  =  curt; 

oasest  :=  curst; 


oaseaa  :=  curaa; 
tempaa2  :=  tempaa; 

RhADCtrans^tempaa ) ; 
lnd;  (M*) 

It  (tempaa.aa-id.crans.site, trans.num  = 
cempaai ,aa»ia.trans„site, trans.nur. j  ana 
( tempaa,aa«ij,sc«na,7i  <> 
tempaa2.aa„ia.st.num)  TH t ^ 

BEGIN  ( *5  * } 

Nfcrf (curst ) ; 

aadst(curst,tempaa); 

curt* . st.qty  :  =  curt* . st.qty  +  l; 

oasest*«nxt  :=  curst; 

ne* (curaa ) ; 

aadaa (curaa , tempaa j ; 

curst* .aa.qty  :  =  curst* . aa.qty  +  i; 

curst* .aa-ptr  ;=  curaa; 

oasest  :  =  curst; 

oaseaa  :=  curaa; 

tempaa2  :  =  tempaa; 

REAG(trans,teinpaa); 

end;  (.*5*) 

It  (tempaa.aa.ia.trans.site.trans.num  = 
tempaa2 . aa.ia. trans.site . trans.num)  ana 
Ctemp«a.aa.ia.st.num  = 
tempaa2, aa.ia. st.num)  then 
BEGIN  (*6*) 

Nt'^Ccuraa) ; 

aaaaa(curaa,tempaa) ; 

curst*.aa.cty  :  =  curst *. aa.qty  +  1; 

baseaa*.nxt  :=  curaa; 

baseaa  :=  curaa; 

tempaa2  :=  teropaa; 

REAoctrans,tempaa) ; 

ENO  (  *6* ) 

END  (  *  3  *  ) 

END  1*2*) 

ENO;  (01*) 


(GLOBAL) 

PROCEDURE  Piddle; 

(*  tnis  proc  oullds  tne  data  dictionary  structure 
from  tne  text  file  datadlc*) 


VAR 

cased, curd  :  ptr.dic; 
i  :  integer; 
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a 


■  •»*■*  * ) 


PROCEDURE  addd  (curd  s  ptr.dic? 

cn  :  cnarJ; 

(*  tnis  proc  fills  one  aata  die  linx  noae  witn 

BEGIN  l*al*) 

curd*. site. id  :=  cn; 
cura*.nxt  ;=  nil; 
end?  (*al*J 


(*  Degin  main  program  clddic  *) 

BEGIN  (*1*) 

FOR  i  1=  0  to  99  DO 

dic.array Cll ’ :=  nil; 
n Erf (die. array  to j } ; 
dic-array (0] *.nxt  :=  nil; 

«EADLN(datadic, dic.array CO] *.site.id) ; 

1  s  =  1  ? 

WHILE  not  eof(datadic)  DO 
BEGIN  c*la*j 

IF  not  eot(aatadlc)  Then 
READLN(dataalc,cn) ; 

IF  cn  <>  *9*  THEN 
BEGIN  (*lo*j 

new (dic.array  C i J )  ? 
cased  dic.array CiJ ? 
curd  ;s  dic.array  lij ; 
addd(curd, ch) ; 
end;  (^le*) 

while  (cn  <>  'x')  and  (not  eot (datadlc) )  DC 
BEGIN  ( *2* ) 

If  not  eof(dataoic)  Then 
REaDLn (datadlc, cn) ; 

If  (Ch  =  '9')  TrtEN 
BEGIN  ( *2 • b* ) 

dic-arrayiu  :=  nil; 
READLN(aatadic,cn); 

END  (*2.5*) 

ELSE 

IF  (cn  <>  'x')  Then 
BEGIN  l*J*) 

NEW (curd )  ? 
addd(curd,ch) ; 
based*. nxt  :=  curd; 


cura 


based  :  = 
END?  (*J*) 
END;  (*2*) 
i  :=  l  ♦  it 
end;  (♦la1*1) 

END;  ( *1* ) 


[GLOBAL] 

PROCEDURE  add. n. and. t  (VAR  cur-cn-ptr  :  ptr.cn); 


(*  tnis  procedure  adds  a  neaaer  ana  trailer  to  tne  inout 
conflict  nlstory  list  *) 

VAR 

out.cn.ptr,  tvlptr  :  ptr-cn; 

Dout.ch.otr  >  ptr.cn. pair; 

BEGIN 

(*  ouild  neader  *) 

Nt*(out-ch.ptr ) ; 

out.cn.ptr*. aa. id. trans-site. mit-site  s  = 
out. cn.ptr*,aa. id. trans-site. trans.num  :s  -1; 
out.cn.ptr*. aa-io.st-num  :s  0; 
out.cn.ptr *,aa.id.aa.nuro  ;=  0; 
out.cn.ptr*. aa.lo.r-4-flg  ;=  'z'; 
out.cn.ptr*. aa.ia.do.id  :=  u; 
out.cn.ptr*,aa-id.cn.seq  :  =  (J; 
out.cn.ptr*. aa.j -a. metric  :=  o; 

(*  ouila  neader  pair  *) 
hen (pout. cn.pt r) ; 

out.cn.ptr* .pair-ptr  :=  pout.cn.ptr ? 
pout.cn. ptr*.aa.io,trans. site. init. site  := 
pout. cn.ptr*.aa. id. trans. site. trans. nun*  :=  -1; 
Pout.cn.ptr*,aa.id.st.nu;n  :  =  o; 
pout.cn.ptr* .aa.ia.aa.num  : =  o; 
pout.cn.ptr*.aa.id.r.w.£ lg  :=  'z' ; 
pout.cn.ptr*. aa. io. do. id  :*  u; 
pout.cn. per*. aa-ia.cn.sea  ;=  u; 
oout.cn. ptr*,aa.id. metric  :=  o; 
pout.cn.ptr*. metric-sum  :  =  o; 

(*  add  tne  neader  *) 
out.cn.ptr*.nxt  ;*  cur.cn.ptr; 
cur.cn.ptr  ;*  out.cn.ptr; 

(*  ouild  trailer  *) 

NEW(out.ch.ptr); 
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#  « 


ou t.cn.ptr*. aa.id. trans.site . ini t- site 
out.cri.ptr* .  aa.id ,  trans-s  1  te .  trans.num 
out.cn.ptr*. aa.id. st-num  : =  0; 
out.cn. ptr* . aa. id, aa-num  :=  0; 
out.cn. ptr*. aa.id, r-w-flq  : =  'z'? 
out.cn. ptr* . aa.id , do.ld  : =  u; 
out-cn. ptr*,aa. id. cn.seq  ; =  0; 
out.cn.ptr*. aa.id. metric  :  =  0; 
out.cn. ptr*. nxt  :=  nil; 


'A  , 
9999 ; 


(♦  bulla  trailer  pair  * } 
n£*  cpout.cn. ptr) ; 

out.cn.ptr*.pair.pcr  : =  pout.cn.otr; 

pout.cn. ptr*. aa.id. trans-site. init. site  :  =  'A'; 

pout.ch.ptr*. aa.id. trans.site. trans.num  :=  9999; 

pout.cn. ptr* .aa.ia. st.num  :=  o; 

pout.cn. ptr*. aa. id, aa.nuit  :=  o; 

pout.cn.ptr*,aa.ia.r-*-f lq  :  =  'z'; 

pout.cn. ptr*. aa.ia. do. id  s-  u; 

pout.cn.ptr*. aa.id. cn.seq  ;=  u; 

pout.cn. ptr*. aa.ia. metric  :=  u; 

pout.cn. ptr*. metrlc.sum  ;  =  o; 

(*  add  tne  trailer 
tviptr  ;=  cur-cn.ptr; 

WHILE  tviptr*. nxt  <>  nil  Du 
tviptr  ;=  tviptr*.  y^f 
tviptr*. nxt  :=  out.cn.ptr; 


end; 


IGLUBALJ 

PROCEDURE  blddo; 

(*  tnls  Dullds  tne  data  oo^ect  structure  from  tne  integer 
file  dooj.dat 

VAR 

i  :  integer; 

BEGIN  C*l*} 

FOR  i  ;=  1  to  99  uo 
ao-arrayiij  :=  nil; 
i  :=  l; 

while  not  eofidooj)  do 

BEGIN 

NEWCdo. array tij } ; 

READLN(dobj, do. array tiJ * .n.cnt ) ; 


(♦add  a  header  ana  trailer  record  to  o.o, 
do. array li) * .cn.ptr  :=  nil? 
add-h-and-t' (ao-array  lij  *,cn.ptr) ? 


END? 


(♦fill  d.o.  perm  rec  fields ♦} 
do-array  Cl] ",  tv. per  ;=  nil? 
do-array (i) loc<-q-ptr  ?  =  nix? 
ao-array U3 A.no.reads  :=  u? 
ao-array (13 no. writes  ;=  0; 
do-array (13 *. locK  s=  false? 
ao-array (13 s-ent  :  =  0? 
do. array  Cl) locx-qty  ;  =  -l; 
do-array C13 cn-seq  :=  o? 

1  :  =  l  +  1  ? ' 

END?  i*2*) 

(♦!♦) 


(GLOBAL 3 

PROCEDURE  enter. time. delay  (VAk  time-delay  :  integer;? 

(♦  this  procedure  requests  as  input  an  integer  to  act  as  a 
delay  value  ♦) 

BEGIN 

WRITELN? 

aRITELN  ('Enter  an  inteqer  tor  a  time-aelay  constant 
readln  (time-aelay}? 
time-delay  ;=  ABB  (time-delay;? 

WRITELN? 

*RI TELw  ('Tne  time-aelay  constant  is',  time-delay;; 

ENO? 


(GLOBAL} 

PROCEDURE  enter-random-seed  (VAR  seed  :  unsigned;? 

(♦  tnis  procedure  requests  as  input  an  integer  to  oe  usea  as 
the  seed  tor  a  random  numper  generator  ♦) 


BEGIN 

-RITELN? 

wRITELh  ('Enter  an  integer  to  act  as  a  seed  for  tne', 
'  random  number  qenerator  :')? 

READLN  (seed)? 

ariteln; 

WRITELN  ('The  seed  value  is',  seea)? 
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UNCLASSIFIED 


F/G  5/1 


NL 


end; 


**** ) 


[GLOBAL J 

PROCEDURE  checK.stop  (VAR  stoprun  :  Boolean; 

cn  s  char); 

(*  this  reads  a  character  from  tne  iceypoaro  ana  aetermmes 
if  input  should  stop  or  continue  *) 

BEGIN  (*cnec*.stop*) 

IF  not  (cn  in  ['y','T','n','N'j )  then 
cn  :=  'z'; 
case  cn  of 

'n','N'  :  stoprun  sstrue; 

'y','¥'  :  stoprun  :=  false; 

'z'  :  wRITELN ( 'error  try  again'); 

ENO;  (*case*) 
end;  (*cnectc„stoc*) 


(GLOBAL) 

PROCEDURE  read.inteqer  (VAR  num  rinteger); 

(*  Tnis  reads  an  integer  from  the  terminal  in  char  format 
and  edits  it  for  type.  It  iooos  error  msgs  until  a  leaal 
integer  is  input*) 

CONST 

goodset  =  ['O', , 'y'j ; 
maxintdlg  =  lo; 


VAR 

line:  array  [i,,80J  of  cnar; 
index, lengtn  ;  integer; 
good. answer  :  boolean; 

BEGIN 

gooa.answer  : =  false; 
while  not  good. answer  DO 
BEGIN 

index  :  =  1 ; 

READ ( line ( . index, )) ; 

wnlLE  not(line( , index, )  =  '  ')  and  not  eoin 
and'dndex  <  maxintdig)  ou 

BEGIN 

index  ;=  index  *  i; 
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REAuQlnec ,  index. ) ) 
end; 

REAuLN ? 

length  :=  index; 
gooa.answer  :  =  (index  >  l)  or 

not ( llne( , index . )  =  '  '); 

FOR  index  :=  1  TO  iengtn  uO 

good. answer  ;=  gooc. answer  and 

( UneC .  index . )  in  goooset); 

IF  not  good. answer  THEN 
BEGIN 

FUR  index  ;=  1  ro  Iengtn  DO 
wRireillne(. index. ) ) ; 
wKHELNC'is  not  an  integer'); 
wRITELN ( 'please  inDut  again') 

END 

end;  (*wniie*) 
num  ; =  o? 

FOR  index  s=  1  TO  iengtn  DC 

n-ina  :=  num  *  10  +  (ord( line (. index. )) -ora( '0 ') } 
end;  (♦proc*) 


procedure  write. query  (VAR  ans  :  integer); 

C*tnis  writes  the  terminal  output  tor  oidcntv  *) 

BEGIN  (*wq*) 

wPITEon ( 'tnis  proc  tuilos  temp  vers  and  conflict  nists'J; 
writelnc 'tor  tests'); 

wRITELN ( 'wnat  do  you  want  to  ouilo?'); 
wRITELN ; 

wRITELn ( ' l  s  a  temporary  version'); 
wRITELn ( ' 2  ;  a  conflict  history  oair'); 
wRiiELNC'j  ;  nothing'); 
wRITELN? 

wRITEC 'respono  with  single  digit®***' ) ; 
read.lnteger Cans ) ; 

END;  {* wq*) 

(_  **^***m*****$*************** ****************************** ) 
(********************** ******************************* *****) 

(GLOBAL] 

PROCEDURE  savcntv; 

(*  this  constructs  either  conf  hists  or  temp  versions  ana 
outputs  the  data  to  file  "runfile"  for  use  cy  proc 
conchtv.pas  *) 
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const 

aa  =  100?  c ♦dummy  const*) 

VAR 

cn  :  cnar; 

ansfa  sinteger; 

correct, stoprun  j  boolean? 

curtv  :  ptr.tv; 

curcn  :  ptr.cn? 

(****« ************************************************ *****) 
procedure  v*rite.cn  (curcn  s  ptr-ch); 

( *  tnis  writes  to  file  runtile  for  constructlna  cn  ana  tv 
structures  *) 


VAR 


temppair  :  ptr.cn.pair; 


BEGIN 

terrppair  :=  curcn*. pair-ptr; 

wRII£LN(runf lie, curcn* .aa.ia.tr ans.s it e. ini t.site) ; 

i, curcn* .aa-iu. trans.slte . trans.num) ? 
:,curcn*.aa.i4.st!num) ? 

, curcn* .aa.iu.aa_n urn) ; 
i, curcn*. aa-ia. r.w.f ig) ; 
!,curcn*.aa.ia.ao.ia) ; 

, curcn* .aa.ia.cn.seq) ; 

, curcn*. aa.i a. metric) ; 

i ,  teirppair*  .aa-id.  trans.slte.  mit.site ) ; 
i,  temp  pair*  ,aa-id.  trans-site,  t  ran  s.ru.T ) ; 
i.teuppair*. aa-id. st.nuin) ; 

1 ,  temppair*. aa-id, aa.nuw) ; 
,temppair*.aa-id.riw_fig)? 
,temppair*.aa.id.o6.ia) ; 
,tempoair*.aa.id,cn_seq) ; 
!,temppair*.aa_idf  metric)  ? 
teroppair * , metric.sum)  ? 


v*RITELrt(runf  ile( 
*RjLT£tiN(runf  ile, 
whITEL-n  ( runf  lie  ( 
.iRli'ELNtrunnxe 
^RIIELNCrunfile 
*RII£liN  (runtiie, 
*RITELN(runfile 
wRITEliUrunfile, 
wRllcLNCrunf lie 
*RlT£LN(runtile 
wRIlELMruntlie, 
4KITELN ( runtlie 
*RlTELN(runfiie 
*RIT£LMrunf  lie 
*RIIELN(runtiie 
■nKITELNCrunfile, 


END;  (*proc  write.cn*) 


PROCEDURE  const. tempv  (VAR  curtv  :  ptr-tv)? 

(*  tnis  constructs  a  temp  ver  from  parameters  input 

interactively  and  places  the  oata'oh  tile  runaata.aat  *) 


inval  :  integer; 
cn  i  cnar; 
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VAR 


tempv  :  ptr.tv; 


begin  (*i*) 

NErf(curtv) ; 

*RIXELN(runf lie,  't') ; 

*RIT£ln( 'enter  the  lnlt  site  number'); 

KEAULNCCh); 

while  not  (cn  in  i'o','l',"2','J','4','!>', 

' 'b','7','b','9'j )  DO 

BEGIN 

wRITELN ( 'error  try  again'); 

READL.4  (ch) ; 

END; 

*KlTELN(runf ile,cn) ; 

wRITEln ( 'enter  tne  trans  number'); 

read.integer (cur tv* , aa. id, trans-site . trans. nu.tu  ; 

*RII£LN(runf lie, cur tv*. aa. id. trans.s ite.tr ans-numj 

wnIXELn( 'enter  tne  sub  trans  numoer'); 

read.integer(curtv*,aa.id.st.num )  ; 

wkITELn (runtlie,curtv* .aa.ld. st.num) ; 

«RIT£LN( 'enter  tne  atomic  action  number'); 
read.integer (cur tv* .aa. la, aa.num) ; 

*R I XELN ( r un tile, cur tv*.aa.la. aa.num) ; 
wRIIELiU 'enter  tne  read  write  r  or  *  flag'); 

REAOLN (CM  )  > 

wrilDE  not  (ch  in  i'r','w'J)  Du 
BEGIN 

*RITtLN(  'error  cry  again'); 
readun ( cn ) ; 

END; 

wFIIELN(runtiie,cn) ; 

*RIXELN ( 'enter  tne  data  oo}  numoer'); 
read.integer ( cur tv*.aa. id, do-id) ; 
wRIT£LN(runf iie,curtv*,aa.id,ao.id) ; 
wriieln ( 'enter  tne  conf  nist  seq  number'); 
read. integer (cur tv* . aa.ia.cn.seq) ; 
wRIXELN  (runt  He ,  cur  tv*  .aa.id.cn.  seq) ; 
writeln( 'enter  tne  metric  numoer'); 
read.integer (cur tv* . aa.io.metric) ; 
wRIXELN(runf lie, cur tv* .aa.iu.metric) ; 

WRIIELN ( 'enter  the  metric  sum  number'); 
read.integer (curtv* ,metr ic-sum) ; 

*RIXSLN(runf lie, curt v*. me trie. sum) ; 

WRITELN ( 'enter  tne  status  field  cnar  r,w,c,x'); 
reauln ( cn ) ; 

while  not  (cn  in  I'r ' , 'w' , 'c' ,  'x' j  )  DU 
BEGIN 

WRITELN ( 'error  try  again'); 

.  RbADLN ( cn ) ; 

eno; 

wRiiELN(runtiie,cn) ; 


end; (*i*) 


(****************************************«**************»**) 

PROCEDURE  const. connist  cvar  curcn  :  otr.ch); 

(♦  tnis  constructs  a  conf  nist  from  parameters  inout 

interactively  and  places  tne  oata  on  file  runtiie.iat  *) 

VAR 

inval  :  Integer? 
cn  :  cnar? 
tempcn  s  ptr.cn? 
temppair  :  ptr.cn. pair; 

BEGIN  (*1*) 

NEw(curcn) ? 

*£«( temppair) ; 
wRITELMruntlle.'c')? 
curcn*. nxt  s=  nil? 
curcn* .pair.ptr  :  =  temppair; 

wRITSLM 'enter  tne  values  tor  tne  first  cn  pair  memoer'); 
wRITELn ( 'enter  tne  init  site  numoer'); 

READLN(cn) ? 

*iHILE  not  (cn  in  £'0'  ,  '1 '  ,  "2'  ,  '3'  ,  '4'  ,  's' , 

'6','7'.'b','y'J )  DU 

BEGIN 

writ  ELM  'error  try  again')? 

READLMcnj ; 

END? 

curcn*, aa.id. trans-site.  init- site  :*  cn; 
wRirELril 'enter  tne  trans  number'); 
read.integer (curcn* . aa.id, trans-site. trans-num) ? 
wRIIELM  'enter  tne  sud  trans  numoer')? 
reaa.integer (curcn* . aa.id.st.num) ; 
wRIIELM 'enter  tne  atomic  action  number'); 
reaa.integer (curcn* . aa.id.aa.num) ; 
wRITELN ( 'enter  tne  read  write  r  or  *  flag'); 
read un (cn); 

while  not  (cn  in  i'r','w'j)  dq 
oEGIn 

wRITELn { 'error  try  again')? 

REACLN (cn ) ? 

END? 

curcn* .aa.id, r.w. fig  ;=  cn; 
aRITELNC 'enter  tne  data  obj  numcer'); 
read.integer (curcn*. aa.id. do-id ) ? 

ARITELN ( 'enter  tne  conf  nist  seq  number'); 
read-integer(curcn*.aa.id,cn-seq) ; 
wRITELN ( 'enter  tne  metric  number'); 
read. integer (curcn*. aa.id, me t r ic ) ; 
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wRIIELN l 'enter  values  for  tne  second  cn  pair  meaner'); 
wRIIELn ( 'enter  tne  init  site  numoer'); 

REAULN(cn) ; 

while  not  (cn  in  t'O' , 'l ' , '2' , '4' , '4' , '&' , 

'6','7','B','9'J)  CU 

BEGIN 

wRIIELN ( 'error  try  again')? 

READLN(Ch); 

end; 

temppair*. aa- id. trans- site. init. site  :=  cn; 
whIIELN ( 'enter  the  trans  numoer')? 

read. integer < temppalr* .aa-id. t rans.s lte.tr an s-num) ; 
w FUEL N ('enter  tne  sud  trans  numoer'); 
reaa.integer ( temp pair* . aa.ia. s t-num) ; 
wkIIELN ( 'enter  tne  atomic  action  number'); 
read-integer Ctemppair* , aa-la.aa-num) ; 
mRIXELn  ( 'enter  tne  read  write  r  or  w  flag'); 

REAOLN(cn) ; 

wHILe.  not  (ch  in  I'r'.'w'J)  lq 
BEGIN 

nkITELN( 'error  try  again')? 

READLN (Ch) ? 

end; 

temppair*. aa-id. r-w-f lg  :  =  ch; 
wRITELNC'enter  the  data  cbj  numoer'); 
read.integer (temopair aa-id. ao.id) ; 
wRITELN( 'enter  tne  conf  hist  seg  number'); 
read-integer ( t emppa 1 r“. aa-id. cn-sea) ? 
wRIISLN( 'enter  tne  metric  numoer'); 
read-integer ( temppair * .aa-ld. metric) ; 

WRlTELhC 'enter  tne  metric  sum  number'); 
reaa-integer (temopair* .metric-sum) ; 

END?  (*l«) 

tumimtm**************  *************************  ***********) 

PROCEDURE  add-connist  (/ AR  curch  :  ptr-ch); 

(*  tnis  proc  adds  tne  newly  cuilt  conf  nist  to  tne 
runfile.dat  file  *) 

VAR 

curtr  :  ptr-trans? 
curst  :  ptr-strans; 
tempch.folcn  :  ptr-cn; 
temptv  s  ptr.tv; 
indo.inval.lntr.inst  ;  integer; 
lnslte.cn  :  cnar; 

begin  (*l») 

wr ITELN ( 'this  places  tne  new  conf  nist  in  a  place', 


'  of  your  choosing'}; 

writeln ( 'select  wnere  you  went  tne  cont  nist  to  co'j 
wRITELN; 

wRITELN ( ' 1  :  to  a  data  ob ject=>sortea  oraer'); 
writeln ( '2  :  to  a  suo  transaction'); 
writeln ( '3  :  to  a  teiup  version'); 
writeln £ '4  ;  to  a  transaction'); 
writeln; 

writelm 'respond  witn  a  single  digit  ===>'); 
read-integer (inval) ; 
whlu£  not  (inval  in  [1,2, 3,%))  DO 
BEGIN 

wRITELN c 'error  enter  again'); 
read-integer (inval) ; 

End; 

wRITELN (run tile, inval) ; 
case  inval  of 

1  S  BEGIN  (*C1*) 

wRITELN [ 'type  which  data  003  gets  tne  cont 
*'  nist'); 

read-integer (inval) ; 
while  not  (inval  in  [1..99])  do 
BEGIN  '  (*2.5*) 

writelm ( 'error  enter  aqain'); 
read-integer (inval) ; 
end;  ( *2 . 5 ♦ ) 

IF  do-array Cinvai)  =  nil  THEN 

wRITELN ( 'data  obj  not  in  use  do  over')? 
writeln ( runt ile, inval) ? 
write-cri(curch) ; 
end;  (*cl*) 

2  J  BEGIN  (*C2*) 

wRITELN ('you  are  placing  a  cont  hist  in  a' 
■'  suo  tran'); 

wKITELN ( 'enter  tne  inlt  site  tor  this  cont 
''  nist'); 
readln (insite); 

while  not  (insite  in  t'u' , 'l ' , '2' , 'd ' ,  '4' , 

'b','7','d','i»'J  )  DU 

BEGIN 

writeln ( 'error  try  again'); 
READLN(insite) ; 
end; 

writeln (runf ile, insite) ; 

wRiTELNi 'enter  the  trans  num  for  this  cont 
*'  nist'); 
read-integer (lntr ) ; 
while  not  (iritr  in  [1..99J)  do 
BEGIN 

writeln ( 'error  try  again'); 


read-integer Cintr ) ; 
end; 

WRIiELfUrunf  lie,  intr); 

whITEln  ( 'enter  the  suo  trans  num  tor  tins', 

*'  conf  hist'); 
reaa-integer (inst) ; 
while  not  (inst  in  (1..99J)  DO 
BEGIN 

wkITELn  c  'error  try  again'); 
read-integer (inst ); 
eno; 

wKlTELN(runtlle,inst); 
write. cri(curch) ; 
end;  (*2.*) 

:  BEGIN  (*J*) 

wKHELfU'you  are  placing  a  conf  hist  m  a', 

'*  temp  ver'); 

wKll£LN( 'enter  the  data  oo3  np  for  tnis', 
conf  hist'); 
read-integer  ( inao ) ; 
while  not  (lndo  in  L1..99J)  do 
BEGIN 

wkitelnc 'error  try  aqaln'); 
read-integer  undo) ; ‘ 

eno; 

wKlT£LN(runflie, indo) ; 

wkITELNC  'enter  the  imt  site  tor  this  cent', 

■'  nist'); 

RtAuLN(insite) ; 

while  not  (insite  in  l'u'#'l ' , '2 ' , '3 ' , ' > 'S' » 

'b'r'7'»'b'#'9'J)  Du 

BEGIN 

wMTELNC 'error  try  again'); 
keadln ( ins  1 te )  ; 

END; 

wKl’i’ELN  (run  tile, insite); 

whITELn ( 'enter  tne  trans  num  for  this  cont', 

■'  nist')/ 
reao-lnteger ( intr ) ; 
while  not  (intr  In  Cl. .99))  Du 
BEGIN 

wHITELNC 'error  try  again'); 
read-integer (intr) ; ’ 
end; 

wRlTELNCrunf ile, intr ) ; 

writeln ( 'enter  the  suo  trans  num  tor  this', 

*'  conf  hist'); 
reao-lnteger (inst) ; 
while  not  (inst  in  Ct..y9J)  Du 
BEGIN 
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writelnc 'error  try  again')? 
read-integer Cinst)  ? ' 


end; 

w'RITELNcr  unfile,  Inst) ; 
write-cn ( curcn) ? 

END?  l*i*) 

4  J  BEGIN  C*C4») 

wRlT£LN('you  are  placing  a  conf  hist  in  a', 
''  trans')? 

wKITELN c 'enter  tne  init  site  for  this  coni', 
*'  nist'); 
reauln (insite) ? 

*ttILE  not  Clnsite  in  i'o','i','2','J','4','o 

'o',  '7',  's',  'y'J  )  Du 

begin 

NRlltLNC'error  try  again')? 
READLN(insite); 

END? 

*HITELti(r unfile, insite) ; 

wrITELN c 'enter  tne  trans  num  tor  tms  cont', 
''  nist')? 
read-integer Cintr)  ? 
while  not  Cintr  in  £i,.v9J)  dg 
BEGIN 

wkITELN ( 'error  try  again')? 
reaa-integerCintr) : 

END? 

wRITELN c r untile, in tr) ? 
write-cnccurch) ; 

END?  CM.*) 

END?  (*case*j 
END?  c  *  1  *  ) 


C *  main  loop  tor  savcntv  *) 

BEGIN  C*l*) 

rewrite(runtile) ? 

REPEAT  (*until  stoprun*) 
correct  i  =  false; 
a  :s  l? 

while  correct  *  false  DU 
BEGIN  ( *  2  * ) 

write-queryCans) ? 

IF  Cans  in  Cl, 2,3)  )  THl.n 
correct  :=  true? 

END?  C  *2* ) 

curtv  ss  nil? 


curcn  :=  nil; 
case  ans  of 

1  s  const. tempv(curtv) ; 

2i  BEGIN 

const.connistCcurch]; 
add.conn is t (curcn; ; 
end; 

3  :  a  ;s  a  +  1 ; 
end ;  (*case*) 

*RITELN  ( 'more  temp  vers  or  cont  nists  :  y  cr  n'); 
readln ( cn) ; 

cnecx.stop(stoprun,cn) ; 
until  stoprun; 

END ;  (  *  1  *  ) 


) 


[GLOBAL] 

PROCEDURE  concntv; 

(*  tnis  constructs  either  coni  hists  or  temp  vers  from  tne 
data  m  file  runfile  entered  in  proc  savchtv  *) 

const 

aa  =  100;  (*dummy  const*] 


VAR 

insite, ch  :  cnar; 

vnere, inval , inao, intr , inst , ans ,a  ; integer; 
curtv  ;  ptr.tv; 
curcn  ;  ptr.cn; 


•*) 


PROCEDURE  const. temov  (VAR  curtv  ;  Dtr-tv); 

(*  tnis  constructs  a  temp  ver  from  parameters  input  from 
file  runfile  *] 


VAR 

inval  :  integer; 
cn  :  cnar; 
tempv  :  ptr-tv; 

BEGIN  (*i*) 

N£«(curtv] ; 

curtv* .tv.cn.ptr  ; =  nil; 
curtv*. nxt  : =  nil; 

RE aDLn (runfile, curtv* , aa.i a .trans-site . init-site] ; 
REAULN (run file, curtv*. aa.ia.tr an s-s ite.tr an s.num j ; 


REAULN (r unfile, cur tv* .aa.id. st-num) ; 
a£ADLh(runfile,curtv*.aa-ld,aa-nuir,3 ; 

RE ADEN (run tile , cur tv* , aa.id . r.w.t ia j ; 
NEADLN(rur.flle,curtv*.aa.id,do_idj ; 

St ADEN (runf lie, cur tv*. aa.id. cn.seq)  ? 

R£ADL<\(runf  ile,curtv*.aa-la.metric) ; 

REACLN ( runf lie, curt v* .metric-sum) ; 

REAULn (run file , curt v“ . stat.f id) ; 

i*add  the  tv  to  tne  do1*) 
inval  :=  curtv*.aa.id.dc.id; 

IF  do.array (inval j  =  nil  The.iv 

wRITELM 'tnis  data  oDj  not  in  use'j 
ELSE 

IF  do.array  ClnvaiJ  *.  tv. per  =  mi  THEN 
BEGIN 

oo-array linvalj *.tv.ptr  :  =  curtv? 
ao.arraylinval] *,cn-seq  := 

ao-array linvalj *,cn.sea  ♦  1; 

END 

ELBE 

BEGIN  ( *2*  3 

tefr.pv  :  =  do.array  Unval]  *.  tv. ptr; 
while  tempv*,nxt  <>  nil  L>0 
tempv  tempv*. nxt? 
tempv*. nxt  :s  curtv; 
do.array tinvai] *,cn-seq  ;s 

ao.array linvalj *,cn.seq  +  1; 
end;  ( *2* ) 
end;  1*1*3 

procedure  const. conhist  (VAR  cured  :  ptr.cn); 

(*  tnis  constructs  a  conf  hist  from  parameters  inout  from 
file  runfiie.dat  *3 

VAN 

Inval  s  integer? 
ch  ;  char; 
tempen  ;  ptr.cn; 
temppair  :  ptr.cn.pair; 

BEGIN  ( *1  *  3 

N£w(curcnJ ; 
new ( temppair 3 ; 
curcn*.nxt  ;=  nil; 
cured*. pair-ptr  ;=  temppair; 

READLN (runf lie, cured * . aa.la, trans.slte . init.site) ; 
READun (run file, cur ch*. aa.id , trans.slte.trans.num); 


READLN(runf  ile,curch*.aa.la.st.nu.n) ; 

REAQLN (runf lie ,curcn* .  aa-ia .  aa-num) ; 

READLNCrunflle , curcn* ,aa-ia,r..w-f xa) ; 

REA DLN(run file, curcn*. aa-ia. do.iaj; 

READln ( run tile, cur cn*. aa.ia . cn-sey ) ; 
readln  (runt  He,  curcn*,aa.ia.  me  trie)  ? 

aEADLN(runtile,temppair“.aa-ia.trans.site,init_site); 

ftEAOLN(runtile,temppair*.aa-ia.trans_site.trans_num); 

REAOLN(runfile,temppairii'.aa.ia.st_num); 

RtADLN (runf lie , temp pair* • aa-ia • aa-num ) ; 

REAOLN (runf  lie ,  temppair* .aa.ia . r-w.flg) ; 

RtADLN (run tile,  temppair* .aa-ia.ao.ia) ; 

REAOLN(runf  He,  temp  pair*,  aa.ia.  cn.seq) ; 

READLN  c  runf lie, tempo  air* .aa_io .metric) ; 

READLN (runf lie ,  temppair* .me tnc-sum) ; 

END;  («!*) 


PRGCtDUKE  add-conhist  (VAR  curch  :  ptr.cn; 

♦here , lnval , lndo  ;  integer; 
lnslte  ;  cnar; 
intr,inst  : Integer); 

C *  tnls  proc  adds  tne  newly  built  conf  mst  to  tne  seiectea 
destination  of  a  gata  obJ,temp  ver  or  sub  trans  *) 


VAR 

curtr  :  ptr-trans; 
curst  ;  ptr.strans; 
tempch, f olcn  ;  ptr.cn; 
temptv  :  ptr.tv; 

BEGIN  (*l*) 

case  *nere  of 

1  ;  BEGIN  ( *cl * ) 

If  do.array [ invalJ  =  nil  then 

wRITELn ( 'data  ob;)  not  m  use  do  over') 

ELSE 

BEGIN  (*3M 

folch  :=  oo. array ilnvaij *. cn.ptr; 
tempch  !=  do-array tinval) * .cn.ptr* .nxt; 
while  tempch" , nxt  <>  mi  uQ 
BEGIN  C*4*) 

folch =  temoch; 
tetnpcn  ;=  tempcn*,nxt; 
end;  (*4*) 

curcn*,nxt  :=  folch*. nxt; 
folcn".nxt  ;=  curcn; 
end;  c*3*) 

END;  (♦cl*)' 


2  :  bEGIN  (*C2*) 

curtr  ;=  trans.ptr; 
if  curtr  *  nil  ThEN 

<iRIIELN('no  transes  at  ail'); 

*hIlE  (curtr*. nxt  <>  nil)  and  nor.  ((curtr* 
.trans. site. init-site  =  insite)  and' 
(curtr*. trans. site. trans.num  =  intr))  do 
curtr  :=  curtr*. nxt; 

IF  (curtr*. nxt  =  nil)  and  not 

( (curtr*. trans-site. mit.site  =  lnsitej  ana 
(curtr*  itrans.  site,  trans.num  =  intr))  me... 
liRITELN ( 'transaction  does  nor  exist  in', 

’  '  tnis ’ run' ) 

ELSE 

bEGIN  (*C2.1*) 

curst  ;=  curtr*. st. ptr? 

IF  curst  =  nil  then 

akITELn ( 'no  sup  transes  for  trus', 

■'  trans') 

ELSE  BEGIN  (♦C2.I.5*) 

W n I L e  (curst*. nxt  <>  nil)  ana  not 
(curst* .st.ia  =  inst)  ou 
curst  :=  curst*. nxt? 

If  (curst*. nxt  s  nil)  and  not 
(curst*. st-id  =  inst)  TntN 
viRITELN  ( 'sub  trans  aoes  not  exist') 
ELSE  BEGIN  (*C2,2*) 

IF  curst* .'st.cn. ptr  ~  nil  then 
curst*. st.cn. ptr  :  =  curcn 
ELSE  otGiN  C*c2.3«) 

teiopch  ;=  cur  st* .  st.cn.  ptr  ? 
wrtiLfc  tempcn*.nxt  <>  nil  Du 
tempen  :  =  ' terpen* .nxt; 
tempch'.nxt  : =  curch; 

END;  (*C2.J«) 

END;  C*c2.2*) 
end;  (*c2.i.s+) 

LNO;  ( *C2 • 1  * ) 

end;  (*2.-*) 

3  :  BEGIN  (*3*) 

IF  do.array C indo ) * , tv.ptr  =  nil  THEN 
«kiiEL»N ( 'no  temps  tor  tnis  d.o.') 

ELSE  BEGIN'  (*i. 1 *) 

temp  tv  ;=  do-array  Undo)  ".tv.ptr; 
wrilLE  ( temptv*,nxt  ’  <>  nii)  and  not 

( (temptv* .aa.id. trans-site. ini t.s lte  = 
insite)  and  (temp tv*. aa. id. trans -site 
.trans.num  =  intr)  and 
(temptv*.aa-id,st-num  =  inst))  Du 
temptv  ;=  temptV.nxt; 


10* 


IF  (temptv*. nxt  =  nil)  and  not  (itenpcv* 

.aa-ia. trans-site, init-site  =  insite)  and 

( t emptv* .aa-id. era-' s-site. trans-num  s 

intr)  ana  ( temptv* . aa-ia. st-num  =  ins:)j 
ThEw 

*«ITELN( 'no  suen  temo  version  exists') 
ELSE 

IF  temptv*. tv-cn-ptr  =  nil  lit.. 

temptv* . tv-cn-ptr  :*  curcn 
ELSE  BEGIN  (*3.4*) 

tempen  :s  cewctv*. tv-cn-ptr; 

WHILE  tempen*. nxt  <>  nil  Du 
tempen  :=* tempen*. nxt; 
tempen*. nxt  :=  curcn; 

END;  ( *  3  •  4  * ) 

END?  ( *3 ,  1  *  ) 

END?  (*i*) 

4  J  BEGIN  (*C4*) 

curtr  ;=  trans-ptr; 

It  curtr  =  nil  then 

•RITELn ( 'no  transes  at  ail')? 

•*hile  (curtr*. nxt  <>  nii)  and  not  ((curtr*. 
trans-site. init-site  =  insite)  ana 
(curtr*. trans-site, trans-num  s  intr))  Lu 
curtr  s=  curtr*. nxt; 

IF  (curtr*. nxt  *  nil)  and  not  ((curtr*. 

trans-site. init-site  a  insite)  ana' (curtr* 
.trans-site. trans-num  =  intr))  TnEf« 
wKIIELN ( 'transaction  does  not  exist  In', 

'  tnis  run') 

ELSE 

BEGIN  (*C4,1*) 

If  curtr* . trans-cn-ptr  =  nil  then 
curtr*. trans-cn-ptr  :=  curcn 
ELSE  BEGIN  (*C2.3*) 

tempen  ;=  curtr*. trans-cn-ptr; 
while  tempen*. nxt  <>  nil  dg 
tempen  := " tempen* . nxt ; 
tempen*. nxt  ;=  curcn; 

END;  ( *c2 . 3* ) 
end;  (*c4.i*} 

ENO?  (*4,*)  ' 

END;  (*case*) 

END;  (*!*) 


(*  main  loop  for  conchtv  *) 
BEGIN  (*!*) 


109 


4 H I L £  not  eof(runtiie)  DU 
a£GIN  (*wriiie») 

KtADLiUrunf  lle,cn) ; 

It-  cn  =  't'  THEN 

const-terrpv(curtv) 

ELSE 

IF  Ch  =  'C'  THEN 
3EGIN  (*if*) 

READLNcrunf  lJ.e,wnere) ; 
case  where  of 

1  :  BEGIN 

R£ADLNt,runfiie,inval) ; 
const-connist  (curcn) ; 
ada.connist i  curcn , *nere , invai , o , '  x ' , 
o,0); 

E^O? 

2  J  BEGIN 

READ ln Cr untile, insite); 

KEAuLN c r untile, in tr) ; 

R£AJtN(runriie, inst) ? 
const-connist(curcn); 
ada-connist (curch, where  ,o,u,xnsite, 
intr , inst) ; 

END ; 

3  J  BEGIN 

RE ADEN  c run tile , indo) ; 
fcEAGLN (runt  lie , insite) ; 

«E a OLM'r unme,  intr  ) ; 
r EADLn { rant lie, ins t) ; 
const. conmst(curcn) ; 
ada-connist  (curcn  ,*nere,u,mao, 
insite, intr , lnst j  ? 

end; 

4  J  BEGIN 

a£AOLN(runtiJ.e,insite) ; 
readln ( runt i'le, intr ) ; 
const-conmst(curch); 
ada-connist ( curcn, where, o,o, insite, 
intr,0) ; 

END 

END  ( *case*  J 
ENO  C*lf*) 

ELSE 

whiteln ( 'error  on  runrile') 
end;  (*wniie*) 
end;  (*!*) 


PROCEDURE  print. tran. struct; 


no 


t*  this  prints  out  tne  transaction  data  structure  to  tile 
aata.aat  *) 


temper  :  ptr. trans; 


procedure  print. trcn  (nead.cn  s  ptr.cn 3; 

(*  tnis  prints  out  tne  crans  cont  nist  data  *) 


8£G1n 

If  nead.cn  <>  nil  then 
BEGIN  ( *  1 £  *  3 

wiin  nead.cn*  OQ 
BEGIN  (*«itn*) 

wRIIELN  ( aata ,  'a  trans  conf  rust  : 
* k I TELN ( aa ta) ; 

*RIT£LN(aata,  '  lnit.site 

aa- id, trans. site. lnit.site 
*k!T£LN ( data , '  trans. now 

aa- Id, trans. site. trans. num 


atUTELN  ( data  t '  st. num  aa.ld. 

*R ITELN ( aata , '  aa.num  aa.ia. 

wkITELn ( data , '  r-«.tlg  aa.id, 

*HITELN ( data » '  ao. iu  aa.id, 

*kIT£Ln ( data ,  0  cn.seq  *,  aa.ia. 

mkITEGN (data, '  metric  aa-ia, 

AKlTELNiaata) ; 
akITELn (data) ; 
end;  mwltn*) 

*ITH  nead.cn* . pair-ptr*  Du 
BEGIN  (*wlth¥J 

■vkiteln (data ,  '  lnit.site 

'aa.id,  tr  an  s-s  ite ,  mi  t.sl  te 
*RITELN  (aata ,  '  trans.num 

aa.id, trans -site. trans.num 
**ITELN(data, '  st.num  aa.ia, 

*HIT£LN (data, '  aa.num  aa.ia, 

'aHITELn (data ,  '  r-*.iig  aa.ia. 


aa.id, st.num 


aa.ia. aa.num  : 4 ) 
aa.id,  r.jf.f  id;*) 
aa.ld.ao.la  :  4) 
aa.ia, cn.seq  :<*j 
aa. la  .metric  :  <*) 


#RIT£LN ( data , '  ao.la 

«RITELN (aata , 0  cn.seq 
vuSITEGiM  (data , r  metric  r, 
#hIT£ln (data , '  metric-sum 
WRITSLN (data) ; 
end;  ( *v*itn+ ) 

pr lnt.tr cn(neaa.cn".nxt) ; 

END  (*lf*) 

ELSE 

BEGIN 


,  aa.ia ,  st.nuif;  :<*) 
,  aa.ia. aa.num  : 4 ) 
,  aa.ia . r.M.iid : t j 
,  aa.ld.ao.la  :  4) 
,  aa.ia, cn.seq  :4) 
,  aa.ia.metric  :4) 


* , metric-sum; -4  j 
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wRITELN(data)  ; 

*RITELN(data,  'end  of  tnis  trans  conf  hist  list':; 

w  R ITELN C  data ) ; 

END; 

end;  (*proc  print. trch  *) 


PROCEDURE  print. stch  (nead-cn  :  ptr.cn); 


(*  this  prints  out  tne  suo  trans  conf  nisc  data  for  a  eacn 
trans  *) 


BEGIN 

IF  nead.ch  <>  nil  THEN 
BEGIN  (*lf*) 

*ITh  nead.cn*  oo 
BEGIN  (*wltn*J 

RRITELNidata#  'a  sud  trans  conf  hist  ;  '); 
*RITELN (data) ; 

«RlTELN(data,  '  init.slte 

aa. Id. trans-site. mlt. site  :  4); 
*RIIELN (data , '  trans.num  ' , 

'  aa.id. trans-site. trans.num  :  •*); 
^KITELN (data# '  st.num  aa.iu . st.num  :4) 

<fRIT£LN(data, '  aa.num  aa.id, aa.num  ;4) 

VR ITELN ( data » '  r.w.tlg  aa.ia.r.w.f lq:4) 

«RIT£LN  (data  «  '  dO.la  aa.la.do.id  :  *») 

*RIT£uN(data, '  ch-seo  aa.ia.cn.seq  ;4) 

WRliELN  (data ,  *  metric  aa.ia. metric  :<*) 

aRITEun (data) ; 

-rtlTELN(data) ; 

END;  (**ltn*) 

*ITn  nead.cn* . pair-ptr*  DO 
BEGIN  ( *v»ith*) 

NhlTfcuN (data.  '  lnlt.s ite 

' aa-ld. trans-site. mit-slte  :  a); 
^kiteln (data , '  trans. num 

‘aa.id. trans. site. trans- num  :  4); 

*RI IELN (data , '  st. num  aa.id, st.num  :4) 

writeln  ( data ,  '  aa.num  aa.ia. aa.nuir.  ;4) 

«kITELN ( aata. '  r-fc.flg  aa.id . r.w.f ia ; 4) 

wKlTELN(aata. '  do. la  ao.ia.do.ld  :  4) 

*RITELN(data, '  cn.seq  aa.id.cn.seq  :4) 

*RII£LN(aata, '  metric  aa.id. metric  :4) 

*RIIELN(data, '  metric-sum  '  .metric-sum; «*) 
*RITELN (data) ; 

END;  (*«itn») 
prlnt.stch(nead.cn“.nxt) ; 

END  (*lf*) 


ELSE 

BEGIN 

aiftlTELN cdata ) ; 

aRITELN( data, 'end  this  sud  trans  cont  rust  iist'j; 
wKlXELNiaata,  '**<1******I'1*******  +  * ************* **  '•> 
v*RlTtLN(aata) ; 

END; 

end;  (*proc  st* 3 


«****«3 i* ) 


PROCEDURE  print. aa  (nead.aa  :  ptr-aaj? 

(*  tnis  prints  tne  aa  data  tor  each  sub  trans  *) 


bEGIR 

IF  nead.aa  <>  nil  then 
begin  (*lf *3 

with  neaa.aa-  oo 
begin  (*witn*3 

wkITELN Cdata ,  'an  atomic  action  :  '): 
*hITELN(aata) ? 

w rITELn ( data ,  '  lnit.site  ', 

aa-ld. trans. site.mit. site  :  -*}; 

wRITELNCdata, •  trans. num  ', 

aa.id«trans-site.trans-nuni  :  «♦); 
*iKlfELN(aata, '  st.num  ',  aa-ld. st.num  :«j: 

wh  1TELN  (data ,  '  aa-num  aa.ia ,  aa-.ouT. 

w r ITEtiN (data, *  r.w.tlg  ',  aa-ld. r.w.fig : -O  ; 

whITELN ( data ,  *  oo-ia  ',  aa.id.ao.ia  :  ~j; 

wKlTELNiaata, '  cn.seq  aa.id.cn.seo  :43; 

v*RITEDN(oata,'  metric  ",  aa-id.metric  :4j; 

w»<ITELN(data, '  stat  ',  stat  :  4); 
wRlTELNCdata, '  tlme.val  ',  time.val  ;  4j; 

akitELN (data ,  *  step-num  ',  step-num  ;  4;; 

arITELN ( data , '  have.locK  ',  nave.ioc*  :  bj; 

wRITELN (data, '  m.locKd.tig' ,  ln.loc<a.£j.q : o) ; 

wriieln (data ) ; 

End ;  (**ltn*3 

print.aa(nead.aa-<.nxti ; 

END  C*l£*j 
ELSE 

BEGIN 

wRITELN ( data ) ; 

rfRIT£LN(data,  'end  cf  tnis  atomic  action  ilst'3;^ 

RKlTELNidatal ? 

END? 

end;  (*proc  aa*3 
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procedure  print. subt  (nead.st  ;  ptr.strans) 


(♦  tnis  prints  tne  sub  trans  structure  tor  a  trars  *) 

begin  (*oroc  st*) 

IF  nead.st  <>  nil  THEN 
dEGIN  (*lf*) 

#1TH  nead.st*  00 
BEGIN  (*wltn*) 

MNllELN(aata) ; 

*KlTELN(aata,  'a  sue  transaction  ;  '); 
whiteln (aata) ; 

nkITEln Caata , '  st.ia  ',st.ia  :  4) 

*RXI£LN C aata , '  aa.qty  '.aa.qty  :  *) 

'« ft XXfiLN Caata, '  aa.tr. qty  ',aa.tr.qty  :  ■*) 

-«XTELN(aata, '  exec-fig  ', exec. flu  :  b) 

*R1  TELUaata,'  icrK-fig  ',tor«c.£ig  :  b) 

«kiteln  (data , '  metric-sum  ' ,  t^etr  lc.sum :  4 ; 
»k ITELn  ( da  ta ) ; 

End;  (*witn*) 
print. aa(head.st*,aa.ptr) ; 
pr int.stcn(neaa.st*,s t-ch.pt r) ; 
print.subt(neaa.st*,nxt) ; 

ENO  (*if*j 
ELSE 

dEGIN 

wrITEln (data) ; 

* R ITELN ( data ,  'ena  of  sub  trans  list,  tnis  trans') 

«RXI£LN (data,'**********************************'; 

*RITELN(data) ! 

ENO; 

ENO;  (*proc  st*) 


procedure  print. tran  (nead-tr  ;  ptr.trans); 


C*  tnis  prints  out  transactions  in  tne  aata  structure  *) 


begin  (*proc  tr*) 

IF  nead.tr  o' nil  THEN 
BEGIN  (*it«) 

with  nead.tr*  oo 

BEGIN  (*with*) 
mriteln (data) ; 

<*kIIEgn (data, '****************************') 
rfKXTELN ( aata , 'a  transaction  ;  '); 
nRITELn (data, '****************************') 
<*kIT£LN  (aata , '  st.qty  ',st.qty  :  4); 

*ftITELN(aata, '  exec-flu  exec. tig  :  d); 

ITELn ( data , '  st-tr.qty  st.tr. qty  :  4) 


afUTELN ( aata # '  init-site  ', 

trans. site. init-site  :  4); 
*KlTEliN(data,  '  tians-nuTi  ', 

trans. site,  trans.nurr;  :  4); 
^KlitL'Ntdata) ; 

END;  (*witn*) 

pr i n t. t r cri ( neao.tr *. trans. cn.ptr) ; 
print.suDtcneaa.tr“.st.ptr) ; 
print-tranCneaa.tr*. nxt) ; 

END  (*1 £*) 

ELSE 

BEGIN 

WRlTELN(aata) ; 

wKITELN(aata, '******************** ****** ***»*♦**';  • 
*RIT£LN(data, 'end  of  transactions  '); 

whiteln  (data) ; 

END? 

end?  (tproc  tr*J 


(♦  main  loop  for  pr int-trans-struct  *) 

BEGIN  («main*  J 

teinptr  :=  trans.ptr; 
print-tran(  temptr  j ; 

END?  (♦main*? 


PROCEDURE  print-do; 

( *  tnls  procedure  will  output  to  file  'data'  tne  oata  003  ect 
structure  *j 


VAR 

i  s  integer; 
temp.ch.ptr  :  ptr.cn; 
temp.tv.ptr  J  ptr.tv? 
temp-locKq-ptr  :  ptr.iocK.q? 


BEGIN 

FOR  1  !=  1  TO  99  DU 

IF  do.arrayCi)  <>  nil  then 
BEGIN 

wRlTELN  (data); 
wRITELN  (data); 

*RITELN  (data,  '*♦***  do-array  *****•); 

wRITELN  (data); 


(*  output  do.perm.rect  *) 


dlTH  do.array(i)*  DC 
BEGIN 

writeLn  (data #  ' 
aRITELN  (data#  ' 
mRiieijN  (data#  ' 
writeln  (data#  ' 
wRITeLn  (data,  ' 
writeln  (data#  ' 
wRiTtLN  (data#  ' 
writeln  (data}#* 


no-reads  :  '#  no.reaus); 
no-*rites  :  ',  ro-.vr lies}; 
Iock  :  ',  iock); 
n-cnt  :  '#  n-cnt); 
s-cnt  :  ',  s-cnt); 
lcctc-qty  :  ',  locK-qty); 
cn-seq  :  ',  cn-seq); 


( *  output  tne  do-perm  conflict  nistory  *) 

WRIIELN  (data#'**  ao-perm  conflict  nistory  **'); 
*RITELt\  (data); 
temo-ch-ptr  s=  cn.ptr * »nxt; 

w H i Le.  temp.cn. ptrAtaa-la. trans-site,  trans-num  <> 
9999  JG 
BEGIN 

with  temp-cn-ptr*  DC 

BEGIN 

WRITELN  (data , 'mit. site  :  ', aa.ia 
.  trans-site,  mi t. site) ; 

*ki TELN (data # ' trans.nur.i  :  '#aa-ia 
.trans-site. trans-num) ; 

#RITELN (data # 'st-num  :  ' , aa-ia . st-num ) ; 
AfRirELN (data#  'aa-num  :  aa. id. aa-num ) ; 

wRl TELN (data # 'r.a.f lg  : ',aa-ia.r-»-f lq) ; 
«RITELN (data # 'ao-ia  :  ' ,aa-la.do-icj ; 
aRITELn (data, 'ch-seq  :  ' , aa«id . cn.seq ) ; 
WRITELN (data# 'metric  :  ', aa.ia .metric ) ; 
whITELN (aata) ; 

WITH  pair-ptr-  DU 
BEGIN 

v*R I Teln ( data #  'lnlt-slte  ;  '#aa-id 
’.trans-site.init.site); 

*R iteln ( data #  'trans-num  ;  '#aa-id 
’.trans-slte. trans-num); 

(data #  'st-num  ;  ',  aa-id 
' .st-num) ; 

wRITELw (data #  'aa-num  :  aa-id 

’ . aa-num) ; 

ariteln (aata#  'r.w.flq  ;  ',  aa-la 
. r-w-flo ) ; 

writ El n (aata#  'do-la  :  ',  aa-ia 
, ao-id) ; 

wRITELn (data #  'cn-seq  ;  ',  aa-id 
, cn-seq) ; 

WRITELN ( aata ,  'metric  ;  ',  aa.ia 
.metric) ; 

wRITELN (aata ,  'metric-sum  : 


metric-sum) 


END 

end;  (*  while  *) 
wklfELN  (data); 
mRI IELN  (data); 

temp.cn.ptr  : =  temp.ch-ptr*.nxt 
end; 

(*  output  tne  temp  versions  *) 
wRITELN  (data); 

wRlTELrt  (aaca# ******  temporary  versions  *****'); 
writeln  (data); 
temp.tv.ptr  : =  tv.ptr; 

*rtxL£  temp.tv.ptr  <>  nil  DU 
BEGIN 

WITH  temp. tv. per*  cc 
BEGIN 

wRITELN (data , '*  temp  version  aa.ic  *'); 
*r  I teln (data ) ; 

wRIIlLn (data,  'mit-site  :  ',aa.id 
. trans. site . init-site) ; 
wRi'iELN  (data,  'trans. num  :  ',aa-ia 
, trans-site. trans. num ) ; 
wRX rELN(data, 'st.num  :  aa. ia. st.num) ; 

wRITELN (data, 'aa-num  :  aa.ic . aa.num ) ; 

wRITELn  (oata ,  'r.w.tlq  : ' ,aa.id. r-w-f ig ) ; 
wRITELn (data, 'do-iu  :  ' ,  aa.id.do.idj ; 
wRITELn (data, 'ch.seq  ;  ',  aa.ia.ch.sed) ; 
writeln (data , 'metric  ;  ',  aa.ia. . metric) ? 
wkI rtLN (cata , 'metric. sum  ; ' ,.uetric-sum) ; 
wRilfcL.N  (aata,  'stat-tld  :  ',stat.rla); 
wkiteln (data) ; 

(*  output  temp  version  cont  nistory  *) 
writlln (data ) ; 

«RITELN(data, ******  temo  version  cont', 

'  nist  *****'); 

temp.cn.ptr  : =  tv.cn.ptr; 
wrflut  temp.cn.ptr  <>  ml  Du 
BEGIN 

«ITH  temp.cn-ptr-  DQ 
BEGIN 

wRITELn (data) > 

wRXTELn  ( data ,  'mit-site  :',aa.id 
. trans. site, init-site) ? 
wRiltLN(data, 'trans.num  :',aa.io 
.trans_site.trans.num); 
wkiTELN(data, 'st-num  :  ',  aa.ia 
,  st. num) ; 

wRiT£GN(aata, 'aa.num  :  aa.ic 

.aa.nurc); 
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WRiT£Lu(aata,  'r.w.tlg  :  aa-i 

. r-w-f Ig ) ; 

wRiiELt^data,  'do.ici  :  dd.u 

.do-ld); 

wriiIELr»(aata,  'ch.seq  :  ad.ia 

•cn.seq); 

WRiTELN(aata, 'metric  :  ',  aa-la 
.metric); 

WRITELN (aata) ; 
with  pair.ptr*  Du  begin 
wPITELN(aata, 'irit-site  ; 

aa-iu. trans-site, in  it- site) 
wRiltLi.  (data , '  trans.num  :  ' , 
aa.ia. trans_site. trans.num) 
wP.iTtLfiCaata,  'st-num  ; 

aa.iu . s t-num ) ; 
wRjlTcLN  (aata ,  'aa.nun  ; 

aa.iQ.ca.numj ; 

*KiTELN(aata, 'r.w.tig  :  *, 
aa.id. r.w.f lg ) ; 
whi ic.LN (aata , 'ao.ia  ; 

aa.ia.ao.id) ; 
wRUELn  (aata , 'cn. sea  :  ' , 
aa.ia.cn. seq) ? 
wRITELt*  ( aata ,  'metric  : 
aa.ia. metric) ; 

>i«iTfi,Lrt(Qata,'»etric.sum  :  ', 
metric-sum) ; 

END 

END;  (*  with  temp.cn.ptr  *) 
WRITELN  (data)? 
wRITELn  (data); 

temp.cn.ptr  :  =  temp. ch.ptr** .  nxt 
END  (*  while  ♦) 

END?  (*  witn  terrio.tv.ptr  * ) 
wRXTELN  (data); 

temp.tv.ptr  ; =  temp. tv-ptr* .nxt 
end?  (*  while  *) 

(*  output  the  loc*.  queue  *) 
wRITcLN  (data); 

wRITELN  (data,  '♦****  loc<  queue  *****<■); 
writeln  (aata); 
temp.locfcq.pcr  :=  locK-q.ptr; 

WHILE  temp.locxq.ptr  <>  nil  DO 
BEGIN 

WITH  temp.loCKq.ptr*  DU 
BEGIN 

*RIT£LN(aata , '*»***  locx.q  aa.ia', 

'  ***»*'■); 

«RI fELN (data  )  ; 


*R  HELM  data,  'lnit.slte-  :  ',aa_ia 
. trans-site. ini t.site) ; 
aRJ fELN (data , 'trans.num  :  ',aa.ic 
, trans.site. trans-nurr.) ; 
*RITELMaata, 'st-num  :  ',aa.id.st-nu." ) ; 
*RlIELMdata ,  'aa-num  :  '  ,aa_id.  aa.r, u.r. ) ; 
art ITELN (data , 'r.w.tig  : ' , aa.ia. r.w.f la) ; 
aRIXELMaata , 'ao-ic  ;  # , aa.ia. ao.ia) ? 
wRITELMdata,  'cn-seq  :  '  ,aa.id.ch.seq) ; 
*RIX£LN(data ,  'metric  :  '  , aa.id.metr  ic)  ; 
*RITELN(aata) ; 

temp.locKq.ptr  ;=  temp-locKU-ptr** . nxt 
end  (*  witn  temp.loc<q.ptr  *) 

END  (.*  grille  *) 


eno  C*  *itn  do-array  *) 
end  (*  it  tnen  *) 

END} 


PROCEDURE  print-dlc; 


(*  tnis  procedure  outputs  to  tile  'data'  the  data  dictionary 
structure  *) 

VAR 

1  :  Integer? 
temp.dic.ptr  :  ptr-dlc; 

BEGIN 

lhllELN  (data); 
nRITELN  (aata) ? 

*PXTELn  (data); 
t OR  1  js  0  TO  99  DO 

Ir  dlc.array  CiJ  <>  nil  then 
BEGIN 

kRITELN ( aata); 

*RlTELMdata, ******  dlc.array  c',i;2,'j  **♦**';; 

wRXTELN(aata) ; 

temp.dic.ptr  ;=  dic-array  li); 

REPEAT 

*KITE  (data,  '  ',  temD-dic.ptr'* . s Ite.ia ) ; 

temp.dic.ptr  temp. ale. ptr* . nxt 
until  temp.aic.ptr  =  nil; 
nRITELN  (data) 

END 


*  $  *  *  *  <1  *  ) 


(GLOBAL] 

procedure  prseiect? 

(*  tnis  is  a  utility  print  routine  for  all  internal  data 
structures  allows  a  user  to  select  wnicn  aata  structure 
to  print  *)’ 


i,insel  :  inteoer? 


BEGIN 


i  :  =  0 ? 

wRITELN ( 'select  wnicn  printout  you  want'); 
wRITELn; 

wRITELN ( ' 1  :  trans-structure')? 
wRITELn ('2  :  oata.oPDect  structure')? 

*R ITELN ( '  3  s  aata.dictlonary  structure'); 
wHlTELm  ( '4  ;  trans  and  data.ob)'); 
wRUELnC  *b  ;  trans  ana  aata  aic'); 

WRITELN ( 'fc  :  data  ob)  and  aata  die'); 

*RITELnC'7  s  all  three')? 

wRI TELN ( *8  i  none  '); 

wRITELnC 'enter  an  integer  answer')? 

read-integer  (msei)  ? 

case  insel  of 


answer ' ) ; 


prlnt.tran.struct; 
print. do; 
print. do; 

BEGIN 

prlnt.tran.struct? 
print. do? 
tND? 

BEGIN 

prlnt.tran.struct ? 
print. die? 

END? 

BEGIN 

print. die? 
print. do; 

END? 

BEGIN 

prlnt.tran.struct? 
print. die; 
print. do; 

END? 
i  :=  l? 


END?  (*ease*) 
END;  (*proc*) 
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END 


C*  module  B  *) 


(INHERIT  ( 'builds. pen' ) J 

PROGRAM  aigo.test  (input , output, audit, data, runtile, 

trans,datadic,aobj); 


VAR 

j .time. delay,  i  :  integer? 

seed  :  unsigned; 

cn  :  char; 

stoprun  :  boolean; 

purge-llst-ptr , tvl. purge  ;  ptr-ch; 


(EXTERNAL] 

PROCEDURE  Dldtx; 

extern; 

(EXTERNAL] 

PROCEDURE  Piddle; 

EXTERN; 

[EXTERNAL] 

PROCEDURE  blddo; 

EXTERN; 

(EXTERNAL] 

PROCEDURE  enter. time. delay  (VAk  time-delay  ;integer); 
EXTERN ; 

(EXTERNAL] 

PROCEDURE  enter-random-seed  (VAR  seed  :unsiqnea); 

EXTERN? 

(EXTERNAL] 

PROCEDURE  checK.stop  (VAR  stoprun  :  boolean;  cn  ;  cnar;; 
EXTERN? 

(EXTERNAL] 

Procedure  biocntv? 

EXTERN? 


[EXTERNAL] 
PROCEDURE  saventv? 
EXTERN? 
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[EXTERNAL] 
procedure  concntv; 

EXTERN; 

[EXTERNAL] 

PROCEDURE  prseiect? 
extern; 

[EXTERNAL] 

FUNCTION  MTHSRandom  (VAR  seed  :  unsigned)  :  real; 

extern; 

[EXTERNAL] 

procedure  ada.n.and.t  (VAR  cur.cn-ptr  :  ptr.cn); 

EXTERN? 

PROCEDURE  select. trans  [VAR  seit. nave. aa  ;  boolean; 

VAR  seit.trans.ptr  :  ptr.trans; 

VAR  seed  :  unsignea); 

C*  tnis  procedure  will  ranaomly  select  tne  next  transaction 
to  oe  worked  on  wltrtin  tnose  wmch  nave  aireaoy  begun 
execution  and  tne  next  one  m  tne  lintcea  list  ot 
transactions  *) 

VAR 

temp. trans. ptr  ;  ptr.trans; 

1,  tnrow  :  integer; 

BEGIN 

IF  trans. ptr  =  nil  THEN 
selt.nave.aa  ;=  false 
ELSE  BEGIN 

seit.trans.ptr  :=  trans. ptr; 
i  :=  l; 

(*  set  I  =  no.  of  trans  already  executing  +  l  *) 
while  seit.trans.ptr  <>  nil  uo 
BEGIN 

IF  seit.trans.ptr" .exec-tlg  =  true  Then 
i  ;*  i  ♦  1; 

selt.trans-ptr  ;=  seit. trans. ptr" .nxt 
END; 

(*  call  random  number  generator  tor  integer  l  ->  1  *) 
tnrow  J3  (TRUNCC (^THSRANDGM(seed) )*iuouuu) )  woo  l  f  l; 

(*  select  tne  trans  *) 
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selt.trans.ptr  :=  trans.ptr; 
for  i  :=  1  ro  (tnrow  •  l)  du 

IK  selt.trans.ptr*  .r,xt  <>  nil  THE;* 

selt.trans.ptr  :  =  selt.trans.ptr* . nxt ; 

(*  flag  the  trans  as  "executing"  *) 
selt.trans.ptr*. exec.f lg  :=  true 
END  (*  ELSE  *) 

END? 


PROCEDURE  select. st  i v Art  seis-nave.aa  :  boolean; 

sels. trans.ptr  :  ptr- trans; 
VAR  sels-st.ptr ' :  ptr.strans? 
7AR  seed  :  unsigned? ; 


(*  This  procedure  will  randomly  select  the  next 

suotransactlon  to  work  on  witnin  a  giver  transaction. 
Tnose  whicn  have  all  tneir  atomic ' actions  as  tCr)  are  not 
considered;  neither  are  the’ suotransactions  wnic.n  are 
torxea  to  another  site  *} 


VAR 

1,  throw  :  integer; 
seis.temp.ptr  :  ptr.aa; 
have. st  ;  ooolean; 

BEGIN 

IF  sels. trans. ptr*. st. Dtr  =  nil  Then 
sels.have.aa  ;=  false 

ELSE  BEGIN 

(*  call  number  generator  for  integer  i->no.  of  st's  *) 
throw  :  =  (TRUNC  (  MTHSHAndgm  (seed)?  *  louoou)) 

MOU  sels. trans.ptr*. st-oty  +  l; 

C*  select  tne  suostrans  *) 

sels. st. ptr  :  =  sels. trans. ptr*. st. ptr; 

for  l  :=  l  ro  ctnrow  -  l )  do 

sels.st.ptr  ;=  sels. st. ptr* .nxt; 

( *  cnecK  IF  suotrans'  aa's  are  all  finis neo  * ) 
seis.temp.ptr  :=  sels. st. ptr*. aa. ptr; 
nave.st  ;=  false; 
while  seis.temp.ptr  <>  nil  DO 
BEGIN 

IF  sels. temp. ptr*. step. nun  <  14  then 
have. st  ;=  true; 

seis.temp.ptr  ;  =  seis.temp.ptr* . nxt 


END ; 


IF  Csels.st.ptr*. fork-fig)  or  (nut  have.stj 
sels.nave.aa  : =  false 
ELSE 

sels.st_ptr*.exec-tlq  : =  true 

END 

EMD; 


PRCCEDURE  tina.aa  tinit-site  :  char; 

trans.num,  st.num,  aa.num  :  integer; 

VAR  out.aa  :  ptr.aa; 
var  out. st  ;  ptr-strar.s; 
var  out.tr  ;  ptr.trans); 

(*  This  recursive  proc  returns  tne  pointers  to  tne  requested 
atomic  action, suo  transaction  and  transaction,  Ir  tne 
proc  cannot  fino  tne  entity  requested  a  nil  value  is 
returned  in  the  pointer.  *) 


VAR 

temptr  :  ptr.trans; 


) 


PROCEDURE  aa.find  [out.aa.ptr  :  ptr.aa}; 

(*  tnis  attempts  to  tina  the  input  aa  *) 

BEGIN 

If  out.aa.ptr  <>  nil  then 

IF  out.aa.ptr* ,aa-id,aa-num  =  aa-nuir.  then 
out.aa  ; =  out.aa.ptr 
ELSE 

aa.find £ out.aa.ptr* . nxt ) 

END;  (*proc  aa  tina*) 


) 


procedure  fino.st  (out.sc.ptr  :  ptr.strens); 

(*  this  attempts  to  find  tne  input  sub  trans*) 

begin  (*proc  st*) 

IF  out-st-ptr  <>  nil  THEN 

IF  out.st.ptr*.st.ld  =  st.num  then 
BEGIN 

out.st  ; =  out.st.ptr; 
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aa.find  (out.st.ptr*,aa.ptr) 
END' 

ELSE 

flnd.st  ( out-st.otrA .nxt) 

END;  c*prcc  st*) 


PROCEDURE  find.tr  (out-tr-ptr  ;  ptr-trans); 

C*  this  attempts  to  find  the  input  trans  action  *) 

begin  (*proc  tr*) 

If  out-tr-ptr  <>  nil  then 

If  (out-tr. ptr*. trans-site, lntt.site  =  irit-slte)  ana 
(out-tr-ptr* . trans-site , trans-num  =  trans-num)  int* 
BEGIN 

out-tr  : =  out-tr-ptr; 
tind-st  (out-tr-ptr* . st-ptr ) 

ENO 

ELSE 

flnd-tr  (out-tr-ptr* .nxt) 
end;  (*proc  tr*) 


(*  main  program  for  find-aa  *) 
BEGIN  (*main*) 
out.aa  is  nil; 
out. st  :s  nil; 
out-tr  :s  nil; 
temptr  :=  trans-ptr; 
f ind-tr (temptr) ; 
end;  (*main*) 


PROCEDURE  select-aa  (VAR  sela-nave-aa  ;  Doolean; 

’var  sela-trans-ptr  ;  ptr-trans; 

VAR  sela-st-ptr  :  ptr-strans; 

VAR  sela.aa.ptr  ;  ptr.aa; 

VAR  seea  ;  unsigned); 

(*  Tnis  procedure  selects  tne  next  atomic  action  to  *or<  on. 
If  the  re-execute  list,  whicn  is  an  input  to  tnis 
procedure,  is  not  empty  tnen  the  atomic  action  to  oe  next 
executed  is  taxen  from  tnat  list.'  it  tne  list  is  empty 
then  a  random  numper  generator  will’ provide  a  means  for 
selecting  tne  atomic  action.  *) 


1  :  integer? 

sela.disoose.ptr  :  ptr.reexec; 

BEGIN 

sela.nave.aa  : =  true; 

IF  reexec.ptr  <>  nil  THEN 

(*  execute  next  aa  from  re. execute  list  *) 

BEGIN 

find.aa  (reexec.ptr*. init.site,  reexec.ptr* 
.trans.num,  reexec-Dtr*,st-num. 
reexec.ptr * .aa.num,  seia.aa.ptr , 
sela.st.ptr,  sela.trans.ptr ) ; 
sela.dispose.ptr  :=  reexec.ptr; 
reexec.ptr  s*  reexec.ptr*. nxt; 
dispose  (seia. dispose. ptr ) ; 

IF  sela.trans.ptr  =  nil  Inti. 

sela.nave.aa  :=  raise 
ELSE  IF  sela.st.ptr  =  nil  TnEN 
sela.nave.aa  : =  false 
ELSE  IF  seia.aa.ptr  =  nil  T->EN 
sela.nave.aa  ;=  false 

END 

ELSE 

(*  "randomly"  select  next  aa  *j 
Begin 

(♦  select  the  transaction  to  be  next  *or<et.i  cn  *) 
select. trans  (sela.nave.aa,  sela.trans.ptr,  seea); 

(*  if  tnere  are  sufitransactions  yet  to  complete 
execution,  tnen  randomly  select  one  aitnin  tne 
above  selected  transaction  *) 

It  sela.nave.aa  TtiEN 

select. st  (sela.nave.aa,  sela.trans.ptr, 
sela.st.ptr,  seed;; 

(*  witnin  tne  acove  selecteu  suotransaction,  it 
an  atomic  action  is  yet  to  f lnisn , ' ^or<  on 
that,  else  #orK  on  tne  next  one  *) 

IF  sela.nave.aa  THEN 
BEGIN 

seia.aa.ptr  :  =  sela.st.ptr* .aa.ptr ; 

WnlLE  seia.aa.ptr* .step. num  =  14  du 
begin 

If  seia.aa.ptr*. nxt  *  nil  Then 

rfHITELh  (audit , 'EHkOK  ;  select. aa  ' 
*ls  trying  to  select  next' 
'  aa  when  none  are  mere'; 
seia.aa.ptr  : =  seia.aa.ptr* . nxt 
end; 

(*  IF  aa  is  lr.  locK  queue  don't  select  it  *) 


true  Tic.v 


IF  sela.aa.ptr* . in-lootq.flq  = 
seia.nave.aa  :  =  taise 
END?  (♦  IF  IiltN  *j 

end? 

IF  sela.have.aa  then 

(*  output  wnlcn  aa  was  selected  *) 

BEGIN 

WHITELN  (audit,  'aa  selectea  tor  execution  is  :'); 
yiRITE  (audit#  sela.aa.ptr" 

•aa.la. trans. site. init- site  :  2 j; 
WRITE  (audit#  sela.aa-.ptr" 

.aa.ia. trans. site. trans. num  :  2,; 
write  (audit#  sela-aa.ptr* 

.aa.ld. stlnum  :  2); 
write  (auolt#  sela.aa.ptr" 

.aa.id.aa.num  :  2); 

wRITELM  (audit); 

EhD 

END? 


FUNCTION  iocxeo  (donum  :  Integer)  :  Doolean; 

(*  tms  tests  a  d.o,  to  see  if  it  is  looted  *) 
BEGIN 

looted  :=  do. array (donum) ", ioc<; 

END? 


PROCEDURE  time-out  (time. delay  :  lnteaer; 

time.aa.ptr  :  ptr.aa); 

( *  tnis  produces  the  time  out  period  for  aas  wnlcn  are 
looted  out  oy  manipulating  a  field  m  tne  aa  record  *) 

BEGIN 

time.aa.ptr" . time-vai  :=  time.aa.ptr *. time. val  +  l; 

writeln  (audit,  'this  aa  is  in  time  out 
-RITE  (audit, time.aa.ptr*. aa.ld 

.trans. site. init. site  :  2); 

WRITE  (auait#time.aa-ptr*,aa-id 

. trans. site. trans. num  :  2)#* 
write  (audit, time.aa.ptr", aa.ld 

, st. num  :  2); 
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7* 

■ 


fc* 


*RITE  (audit,  time.aa-ptr*.aa-ia 

.  aa.num  :  2); 

mHIIELN ( audit ) ; 
fc.NO  7 


) 

) 


PROCEDURE  acquire. lock  (donum  :  integer; 

aco.st.ptr  :  ptr.strans; 
acq-aa-ptr  :  ptr.aa); 

( ♦  mis  locks  tne  target  do  ana  formats  a  msg  tor  every  site 
at  which  the  do  is  replicated,  if 'tne  target  ao  is  not  at 
tnis  site,  tnis  proc  sets  tne  sud  trans  tig  as  forking  ana 
packages  tne  sub  trans  travel  msg.  ♦  ) 

BEGIN 

(♦insure  tne  data  ofcj  is  in  use») 

(♦msg  for  forking  sub  trans  «.  repllcateo  data  tor  Iocks*) 
IF  aic.array [donum]  =  nil  then 

rtRITtLN  (audit, 'lock  attempt  on  a  aata  obj  not  usea' 

, donum] 

ELSE 

IF  do. array [donum] A. lock  THEN 

aHITELNC audit , 'attempt  to  lock  a  locked  a.o.  ;  ' 
,donum  ;  4) 

ELSE 

BEGIN  (♦!,!♦) 

do. array [donum] *, lock-qty  ;  =  u ; 
ao.ar r ay (donum J  * . lock  ;=  true; 

*R1TELN (audit , 'locking  data  ODj', donum  ;  4); 
acq.aa.ptr* . have. lock  ;s  true; 
end;  (♦!.!♦] 
end;  (♦acquire. lock^j 


'■**  **  *******  ) 


FUNCTION  is.at.site  (donum  :  integer)  ;  ooolean; 

(♦  tnis  returns  true  it  tne  data  ooject  citea  cy  donum  is  at 
tnis  site,  false  if  it  is  not  «) 


VAR 

curaic  ;  ptr.dic; 


BEGIN 

is.at.site  : =  false; 
curaic  ss  die. array [oonumj ; 
while  curdle  o  nil  do 
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at  GIN 

It-  curdic* . site.id  s  aic-array  Co]  *.site_io  it-t'- 
Is. at. sice  : =  true; 
curdic  :=  curdic*, nxt; 

END; 

END; 


PROCEDURE  loadtv  (ao.ld  :  integer; 

load.tv.ptr  :  ptr.tv; 
loaa.st.ptr  ;  ptr.strans; 
load. aa. per  :  ptr.aa); 


(*  tnis  loads  tne  newly  created  temc  ver  Dolnted  to  cy 
load.tv.ptr  *ltn  aata  pointed  to  py  ioaa.aa.ptr  and 
load. st. per  *) 


BE  GIN 

load.tv.ptr*. aa.ia . trans.s ite. ini t.s ite  := 

load.aa.ptr* .aa.id. trans-s ite. in it- site; 
loao.tv.otr" .aa.id. trans.s ite . trans-num  ;s 

loaa-aa.ptr* .aa.id, trans-si te. t ran s.num; 
load.tv.ptr* .aa.ia, st.nuro  ;  =  ioad-aa.ptr*.aa-id. st-num; 
load.tv.ptr* . aa.id. aa.num  :=  load.aa.ptr*. aa.ia. aa-nurr; 
load.tv.ptrA,aa.ia.z-w-£ig  : =  load.aa.ptr*. aa.ia . r-*-t lg ; 
load.tv.ptr*.aa.ia,ao.id  s*' loao_aa.pt r*. aa.id. do-i a; 
ioaa.tv.ptr*. aa.id. cn.seq  :=  ioac.aa. per*. aa.id. cn.seq; 
load.tv.ptr*. aa.id. metric  :  =  load. aa.ptr * . aa-io . metric; 
load.tv.ptr*. nxt  :  =  nil; 

load.st.ptr*.metric.sum  :=  load. aa.ptr*. aa.ia. metric  ♦ 
loaa.st-ptr".metric.sum; 

load.tv.ptr* .metric-sum  :  =  load. st. ptr *. metric. sum ; 

(•update  ch.seq  in  do  perm,  place  in  new  tv  record*) 
do. array [do. ioj ".cn.seq  :=  do.ar r ay ido.id j * .  cn.seq  *  l; 
load.aa-ptr*,aa-id.cn.seq  :=  do-array  ido.id) *. cn.seq; 
loaa-tv-ptr*. aa.id. cn.seq  :=  do. array tdo-iaj * .cn.seq; 
end; 


procedure  sortold  (curena  :  ptr-cn; 

do. id  s  integer); 

(*  Tnis  Inserts  a  linked  list  ot  contllct  nistories  into  tne 
data  oe}ect  conflict  history  list  in  sorted  order,  rne 
new  list  is  pointed  to  oy  curcna  ana  tne  data  oeject  is 
identified  by  tne  do-id  input,  tne  ao  cn  nas  a  neaaer  an:) 


1 2y 


trailer  recora  *) 


VAR 

sort-ch-ptr#oasecn, curcno, oiacn  s  Dtr-cn? 
palrcn  :  ptr-ch-palr; 

begin  (*ri*) 

sort-cn-ptr  :  =  curcna; 

*HIL£  sort-ch-ptr  <>  nil  DU 
BEGIN  ( *r2* ) 

oasecri  :  =  do-ar ray ldo-id J * . ch-ptr ; 
curcno  :=  basecn'.nxt; 

while  curcno*. aa-id. trans-site. mit-site  < 

sor t-cn-otr*. aa-id. trans-site, ini t-site  Du 
BEGIN  (*ri*) 

basecn  :  =  curcno? 
curchc  :=  curcno*. nxt; 

End;  ( *r 3* ) 

IF  curcno*.aa_ld. trans-slce. inlt-slte  = 

sort-ch-p  tr*.  aa-id .  trans-site,  mit-site  r n £ n 
IF  wor(sort-ch-ctr*.aa-iG. trans-site. trans-num  < 
curcno* .aa-ia, t ran s-si te .trans-num)  HtN 
while  (curcho*. aa-ia.  trans-site.  mit_site  = 
sort-ch-ptr*. aa-ia, trans-site 
,  mit-site)  ana 

(sort-ch-ptr* .aa«ia, trans-site 
.trans-num  >  curchb*.aa-ia. trans-site 
.trans-num)  DO 
BEGIN  (*r<M‘) 

Dasecn  :*  curcno; 
curchb  :=  curcno*. nxt; 
end?  (*r4*) 

NEw (olden) ; 
new (palrcn) ; 

olden*. pair-ptr  :=  paircn; 
cldcn".nxt  :  =  oasech*.nxt; 

Dasecn*. nxt  :=  bldcn; 

paircn". aa-id  :=  sort-cn-ptr*. pair-ptr*. aa-ia; 
paircn*. metric-sum  := 

sort-cn-ptr* . pair-ptr ".metric-sum; 

Dlocn*. aa-id  :=  sort-ch-ptr* .aa-ia; 
sort-ch-ptr  :=  sort-cn-ptr  *’.nxt; 

E4D?  (*r2*) 

Eno;  ( *  r 1  *  j 


PROCEDURE  linKbla  ( ln-send-ptr , in-accept-ptr  :  ptr-cn); 

(*  this  adds  tne  memoers  of  tne  conflict  history  lin*  list 


oointed  to  Dy  in-sena-ptr  to  the  list  pointed  to  cy 
in-accept-ptr  *) 


VAR 

nuchotr , ptrtocn , linK-ptr  :  ptr-cn; 
nupair  :  ptr.cn.pair; 

BEGIN  (*11*) 

linK.ptr  in. accept. ptr ; 

ptrtocn  ;  =  in. send. ptr ; 

REPEAT 

IE  ptrtocn*, aa.id, trans.site.trans.num  <>  ^9*  i-ilh 
BEGIN  (*12*) 

NE* (nuchptr) ; 

N£w(nupair ) ; 

nucnptr* .pair. ptr  ;  =  nupair; 

nuoair* '. aa.id  :  =  ptrtocn*. pair. ptr*. a a-ic; 

nupair*. metric-sum  ;* 

otr  toch*.  pa  ir.pt  r  *.  met  nc.su  m; 
nucnptr* .aa.id  :  =  ptrtocn". aa.ic; 
nucnptr* .nxt  :  =  "  ml; 
llnK.pcr*,nxt  :=  nuchptr; 
linK.ptr' i*  nucnptr; 
end;  c  *  12^ ) 

ptrtocn  is  ptrtocn*. nxt? 
until  ptrtocn  =  nil; 
end;  c*li*) 


procedure  copy.to.tv  (curcha  i  ptr-cn; 

copy tv.tv.ptr  :  ptr.tv; 
donum  :  integer); 


(*  iinK  the  conflict  history  list  pointed  to  by  curcha 
to  the  ne*ly  created  temo  version  to  tne  oata  oo^ect 
pointed  to  py  donum  *) 


VAR 

curcnb  ;  ptr.cn; 
paircn  ;  ptr.cn. pair; 

BEGIN  (*cl*) 
n£*(curcbb) ; 

NExcpairch) ; 

curcnb*. pair. ptr  is  paircn; 
copytv.tv.ptr*, tv.cn.ptr  :=  curchc; 
paircn*. aa.id" is  curcna*,pair.ptr*.aa.la; 
paircn* .metrlc.sum  i=  curcha*. pair. ptr*. .metric. sum; 
curcno* .aa.id  ;s  curcna* .aa.id; 


1  jl 


curcho*.nxt  s=  nil? 

(♦If  more  cn  recs  then  linic  tnem  in  to  tv  cr>*) 

IF  curcha-. nxt  <>  nil  THEN 

linl<DldCcurcna-.nxt ,  copytv.tv.ptr-.  tv.ch.otr ) ; 
end?  C*cl*) 


PROCEDURE  copy-to.st  (curcha  :  ptr.cn? 

copyst-st-ptr  :  ptr.strar.s  j ; 

(*  lin<  tne  conflict  history  pointed  to  Dy  curcha  to  the 
suotrans  pointed  to  oy  copyst.s t.ptr  *) 


VAR 

curcnD  :  otr.cn? 
paircn  :  ptr.cn. pair? 

BEGIN  C*sl*) 

NE*  Ccurchb )  ? 

.vE*(paircn)  ? 

curcnb*,pair-ptr  :  =  pairch? 

paircn'*. aa. id  :  =  curcna-.oalr.ptr-.aa.id? 

paircn-, metric.sum  :=  curcha- .pair. ptr- .metric. sum? 

curcno-.aa.id  :=  curcna-.aa.id? 

curchD-.nxt  :=  nil? 

copyst.st.ptr- . st.ch.ptr  js  curcho? 

C*Ir  more  do  cn,  im<  tnem  in  to  st  cn  list*) 

IF  curcna*.nxt  <>  nil  Trttr, 

lin<PldCcurcna-.nxt , copyst.st.ptr -. st.ch.ptr ) ? 
END?  (*sl*) 


) 


PROCEDURE  installtv  Cinst.aa.ptr  :  ptr.aa? 

‘inst.st.ptr  :  ptr-strans; 
inst-tv.ptr  :  otr-tv)? 


(*  this  installs  a  temp  ver  at  a  data  003  as  cer  tne  action 
of  an  atomic  action.  It  also  copies  any  cont  nists  to  suo 
trans  or/and  data  oo]s  or/and  temp  vers  as  necessary*J 


VAR 

curcna,curcno, f oicna, f olche  ;  ptr.cn? 
paircn  s  ptr.cn. pair? 
donum  :  inteyer; 

BEGIN  (*il*) 

donum  : =  insc.aa-ptr-,aa.ld,do-id? 
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(♦load  the  temp  vers  fields*) 

loadtvc donum, inst.tv.ptr , Inst. st.ptr , Inst. aa.ptr  j ; 

(♦connect  tne  conflict  histories  tor  ao,tv  ana  st*) 

(♦ao  nothing  if  aia.  cn's  are  empty*) 

IF  NOT( (ao. array Caonum) “ .ch.ptr* .  nxt* . aa.ia, 
trans-site . trans.num  =  9999)  ar.o 
(lnst-st.ptr*. st-cn.ptr  =  nil))  ihen 
BEGIN  ( *12*) 

(♦do  if  stch  not  empty  and  do  ch  is  empty*) 

IF  ( do.ar  r  ay  (donum  J  *.cn.ptr*. nxt*. aa.ia. 
trans.site. trans.num  =  9999)  ana 
(Inst. st.ptr*. st-cn.ptr  <>  nil)  then 
BEGIN  (*1J*) 

(♦llntc  cn  to  do  perm*) 

curcha  :=  inst. st.ptr" . st-cn.ptr ; 

sortoid(curcna, donum); 

(*lin<  cn  to  tv*) 

curcna  :=  Inst. st.ptr*. st-cn.ptr? 

copy-to.tv(curcna, inst.tv.ptr , oonum) ; 

END  (*ii*) 

ELSE 

(♦do  if  st  cn  is  empty  ana  ao  cn  is  not*) 

IF  (do. array (donum) *, cn.ptr* . nxt* . aa.ia . 
trans-site* trans.num  <>  9999)  ana 
( lnst-st.ptr* . st-cn.ptr  =  nil)  'then 
BEGIN  (*14*)  ‘ 

(*linK  do  cn  to  st  cn*) 

curcna  :=  ao.array idonumj *.cn.ptr*.nxt; 

copy. to-s t ( curcna, ins t.st.ttr)  ; 

End  ( * i 4* ) 

ELSE 

(*tnls  it  st  cn  and  do  cn  not  empty*) 

IF  ( do-array (donum) " . cn.pt r * . nxt* . a a. id . 
trans.site. trans.num  <>  999y)  and 
( inst-st-ptr* .st.cn. ptr  <>  nil)  Tne.iv 
BEGIN  ( *  1 5* ) 

(*lina  st  cn  to  tv  cn*) 

curcna  : =  inst.st-ptr*. st-cn.ptr; 

copy- to. tv (curcna , Inst.tv.ptr , donum ) ; 

(♦copy  st  cn  to  do  cn*) 

curcha  :=  Inst. st-ptr*. st-cn.ptr ; 

sortold(curcna,aor,um); 

(♦  copy  do  cn  to  st  cn*) 
curcna  :=  do-array (donum) *, ch.ptr*. nxt; 
copy.to.st (curcna, inst. stiptr) ; 
end;  ( *i 5* ) 
end;  ( *12*) 

END ;  (*U*) 
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****«*«**.*) 


PROCEDURE  create-temp.ver  (cre-aa-ptr  :  ptr-aa; 

cre-st-ptr  :  ptr-strans; 
cre.tr-ptr  ;  ptr-trans3; 

(*  tnis  Installs  a  temp  version  at  tne  target  data  ODject 
and  places  the  sab  tran's  conflict  history  in  tne  temp 
version,  it  also  up-  dates  tne  conflict  histories  at 
the  data  object  and  at  the  suo  trans  *3 


temptv, nxt-tv.ptr, ere. tv-ptr  j  ptr_tv? 
curaost .curst  :  ptr-cn; 
l,loop.ent,donum  :  integer; 


BEGIN  (*1*) 

donum  :  =  cre.aa.ptr" . aa-id . do.id ; 

IF  is.at-siteCdohum)  THE u 
BEGIN  (*la*3 

wRITELN (auait , 'creating  a  temp  version  ror:'j; 
write (audit , cre-tr-Ptr*. trans.site.  1  nit-site  :  i , 
ere-tr-ptr" .trans_site.trans.num  ;  2); 
«RlTE(audit#cre-stlptr*.st-ia  :  23; 
wRlTE(auait,cre_aa-ptr".aa-ia.aa_num  ;  2j; 
*klTE(auolt,cre-aa-Ptr*“.aa-ia.ac-la  ;  *  ) ; 
wkITELN  ( aud  i  t  J  J 

(♦install  new  temp  version  and  its  cn * ; 

IF  do-array (donamj tv-ptr  =  nil  Then 

BcGIn  (*2*3  '  (»no  tv's  at  ao») 

NEw (do-array  i donum j  * .tv-ptr 3 ; 
me* (ere- tv-ptr ) ; 

ins tall tv (cre-aa-ptr , cre.st.ptr , 
ere. tv-ptr J  ? 

oo-ar ray (donumj tv.ptr  :  =  cre-tv.ptr; 

End  (*2*) 

ELSE 

BEGIN  ( ♦•  3 ♦  J  (*at  least  one  tv  at  so*) 

temptv  ;*  do-array (donumj ", tv-ptr ; 
while  temptv", nxt  <>  nil  Do 
temptv  :  =  *  temi  tv",nxt; 

NE« (cre-tv.ptr ) ; 

ins tall tv (cre-aa-ptr , cre.st.ptr , 
cre-tv.ptr 3 ; 

temptv", nxt  ;  =  ere- tv-ptr; 

END;  (*3*3 
END  (na*3 
ELSE 

wRUELN( 'ERROR : createtempver  called  when  d.o.  not', 
''  at  site'3 


3 
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'  4  ^  4  *  *  ■ 4**  ) 


FUNCTION  detect. conflict  (oo.ia  :  integer)  :  oooiean; 

C*  rnis  function  determines  if  tne  latest  temp  version 

created  has  caused  a  conflict  at  its  data  ocject.  if  so, 
tne  boolean  is  returned  as  true;  if  not#  as  false.  * ) 


temp.tv.ptr  s  ptr.tv; 
conflict  :  oooiean; 


BEGIN 

conflict  :s  false; 

temp.tv.ptr  :»  do-array  Cdo.io J " . tv-ptr ; 

C*  It  oldest  temp  version  is  a  '  wt\iT£ '  and  it  is  not  tne 
only  temp  version  tnen  tnere  is  conflict  *) 

IF  temp.tv.ptr  <>  nil  I H  E  N 
dcG  IN 

IF  (( temp.tv.ptr* .aa.id , r.w.fig  =  '*')  ana 
( temp.tv.ptr* . nxt  <>  nil))  Tritr; 
conflict  :=  true 
ELSE 

temp.tv.ptr  : =  temp.tv.ptr" . nxt 
END;  (*  IF  *) 

(*  searcn  all  remaining  temp  versions  for  a  IE';  if 

one  is  found  then  tnere  is  conflict  *) 

WHILE  ((temp.tv.ptr  <>  nil)  and  (conflict  =  false))  DU 
BEGIN 

IF  temp.tv.ptr* .aa. id, r.w.f lg  =  THEN 

conflict  J='true; 
temp.tv.ptr  : =  temp. tv-ptr". nxt 
END;  ( *  WHILE  * ) 
detect. conflict  ;=  conflict; 

IF  conflict  fhEN 

wtUTELN  (audit# 'conflict  is  detected  at  *#dO-ld  :  4) 
ELSE 

WRITELN  (audit#'no  conflict  is  detected  at 

ao.ia  ;  4); 

END; 


PROCEDURE  detm. conflicts  (do. la  ;  integer; 

var  curr.cn. ptr  ;  otr.ch); 

(*  mis  procedure  determines  »nicn  temp  versions  conflict 


*itn  the  most  recent  temp  version  and  it  constructs  a 
linKed  list  of  chose  conflicts,  it  assumes  a 
conflict  exists.  *) 


VAR 

temp.cn.ptr  :  ptr.cn; 

temp. pair. ptr  :  ptr.ch.pair; 

temp.tv.ptr,  lastw.tv.ptr  :  ptr.tv; 

1  :  integer; 

BEGIN 

(4  determine  tne  conflicting  temp  versions  *) 
temp.tv.ptr  : =  do-array  (do-idJ ".tv.ptr; 
lastx.tv.ptr  :=  temp.tv.ptr; 
while  temp.tv.ptr* . nxt  <>  nil  au 
BEGIN 

IF  temp.tv.ptr" .aa-id ,r. 4. fiq  =  then 
lastx.tv.ptr  :=  temp.tv.ptr; 
temp.tv.ptr  :=  temp.tv.ptr* .nxt 
END; 

(4  construct  tne  united  list  of  conflict  tenr.D  versions 
new  (curr.cn.ptr); 
temp.cn.ptr  : =  curr.cn.ptr; 

4HILE  last4.tv.ptr  <>  temp.tv.ptr  au 
BEGIN 

cemp.ch.ptr*.aa.id  ; =  last*. tv.ptr*. aa. la; 
new  (temp.pair.ptr); 

temp.cn.ptr* . pair.otr  ; =  temp. pair. Dtr ; 
temp.pair.ptr* . aa-id  : =  temp.tv.ptr* .aa. in; 
temp.pair.ptr" .metric-sum  :=  last4.tv.ptr". 

metric-sum  +  temp.tv.ptr *, met ric.s urn ; 
lasf4.tv.ptr  :s  last4.tv.ptr* .nxt; 

IF  last4.tv.Dtr  <>  temp.tv.ptr  then 
BEGIN 

IF  temp.tv.pt r* , aa-io . r-w.f ig  =  'w'  then 
BEGIN 

NE4  (temp.cn.ptr*. nxt) ; 
temp.cn.ptr  ;=  temp.cn.ptr *. nxt 

END 

ELSE 

lastw.tv.ptr  : =  temp.tv.ptr 
END  (*  IF  THEN  * ) 

END;  (♦  WHILE  4) 

temp.cn.ptr* .nxt  :=  nil; 

*RITELN(audlt, 'conflict  nistory  constructed  at  ',do-la); 
END; 


PROCEDURE  find. tv  (init.site  :  cnar; 

trans.num# st-nuro, aa-num,do.ld  :  integer; 
vah  outptr  :  ptr. tv); 


(*  This  returns  a  pointer  to  tne  requested  tsirp  version 
(outptr).  It  tne  requestea  temp  ver  Is  not  touna  the 
outptr  is  returned  nil  *) 


VAR 

curptr  :  ptr. tv; 

BEGIN  (*pTOC*) 

IF  do. array (do-id J *, tv-ptr  =  nil  Thfcii 
outotr  :=  nil 

ELSE 

BEGIN  (*2*) 

(♦find  tne  right  tv*) 
outptr  :=  nil; 

curptr  :=  do-array iao-idj *. tv. ptr ; 

REPEAT  ( *U nt IL  curptr  =  nil  or  rouna*) 

It  (curptr*. aa-ia. trans-site. 

init-site  =  inlt-site)  and 
(curptr* . aa-id. trans-site . 

crans-num  s  trans-num)  and 
(curptr*. aa.io , st-num  = 
st.num)  and 

( curptr* . aa.ia . aa.num  = 
aa.num)  then' 
outDtr  :=  curptr 
ELSE 

curptr  :  =  curptr*. nxt 
Until  (curotr  =  nil)  or  (outptr  <>  mu; 

ENO;  ( * 2 * ) 

END;  (*proc  find  tv*) 


PROCEDURE  corstruct-prec-rel  (ac.id  :  integer); 

(*tnis  determines  current  conflicts  *itn  tne  newiy  aonenaea 
temp  version  ana  aads  tnese  conflicts  to  tne  do  conflict 
nlstory  in  sortea  order  and  to  tne  suotrans  ana  tv  cn's*) 

VAR 

con.cn. ptr.tvitv.tvlst  ;  ptr-cn; 
con.tr.ptr  ;  ptr-trans; 
con-st.ptr  ;  ptr-strans; 
con.aa.ptr  :  ptr. .a; 
con-tv. ptr  ;  ptr. tv; 
lnit-site  :  ' cnar; 
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trans.num , st. num , aa.num , donum  ;  integer; 
begin  (*proc  constpr*) 

writ  EL. '•(audit*  'const  prec  rel  at  ci.o.  ',oo.ic); 

con. ch. ptr  : =  nil; 

de tm.c on tlicts( do-id, con.ch.ptr ) ; 

(♦add  tne  new  conf  nist  to  tne  data  ooj  perm  recorr.*) 
sor tD Id (con.cn.pt r , ao.ia) ; 
init.site  :  = 

con.cn.ptr*.palr.ptr*. aa-id.tr ans.site.ini t.site; 
trans. num  ; = 

con.cn.ptr*. palr.ptr* .aa-id, trans.site .  trans-rum; 
st-num  :=  con.cn.ptr*. pair. ptr*. aa. id. st-num; 
aa.num  :=  con.cn.ptr*. pair.ptr*,aa. id. aa.num; 
donum  :  =  con.cn.ptr* pair. per  *.  aa. id. ao.ia; 

(♦ada  tne  new  conf  hist  to  the  suo  trans  conf*) 
f ind.aa ( init.site , tr an s.n urn , s t-num , l * 

con-aa.ptr, con.st.ptr ,con_tr.ptr) ; 

IF  con.st.ptr  =  nii  i«En 
BEGIN 

*rtITELN(audit, 'attempt  to  tino  st  tnat  alanot  exist') 
wRITELN (audit* 'in  proc  const  prec  rei'j; 
wSITELN (audit , init.site  *  trans. num, st. num ,aa.num) 

END 
ELSE 
3c .GIN 

IF  con.st.ptr*. st-cn.ptr  =  nil  then 
copy.to.st (con.cn.pt r .con.st.ptr ) 

ELBE 

BEGIN 

tvist  :=  con.st.ptr* . st.cn. ptr; 

»hIlE  tvist*. nxt  o'nil  Du 
tvist  tvist*, nxt; 
llntcbldl  con.ch.ptr , tvist) ? 
end;  (*IF*) 

END; 

(*add  the  NEW  conf  hist  to  tne  temp  version*) 
find.tv( init.site*  trans.num , st-num , aa.num, 
donum, con. tv.p tr ) ; 

IF  con. tv. ptr  *  nil  then 
BEGIN 

«RITELN(audlt* ’attempt  to  find  tv  that  aidnot  exist') 
writeln (audit *' in  proc  const  prec  rel'); 
wRITELn (audit *  ini t. s i te, trans. num ,st. num* aa.nur.. ) 

END 
ELSE 
8tG  I N 

IF  con.tv.ptr*. tv.cn.ptr  s  nil  then 

copy.to.tvc con.cn.ptr  *  con- tv-p tr , aonumj 

s 


BEGIN 

tvitv  js  con.tv.ptr * . tv.ch.ptr ; 
while  tvitv". nxt  o'nii  uo 
tvitv  :=' tvitv*. nxt; 
lin<Dld( con_cn.pt r , tvitv ) ; 

END;  (*IF*) 

EHO ; 

end;  (*proc  constpr*) 


PROCEDURE  set.s  Cdo.ld  :  integer); 


(*  sets  s  to  tne  numoer  o£  temp  vers  arter  tne  1st  wKliE  *) 
VAR 

temp.tv.ptr  :  ptr.tv; 
s  :  integer; 

BEGIN 

te.mp_tv.ptr  :  =  do.array  tdo.ia]  * .  tv_ptr ; 
s  :=  0; 

(*  skip  over  all  "read"  temp  versions  *) 

IF  temp.tv.ptr  <>  nil  then 
BEGIN 

«HILE  (( temp.tv.ptr* . nxt  <>  nil) 

ana  (temp.tv_ptr*.da_ia.r-w_£lg  =  'r*)j  u u 
temp.tv.ptr  ;=  temp.tv.ptr*. nxt; 

(*  count  tne  ot  temp  vers  arter  tne  1st  while  *} 

IF  tenp.tv_ptr*,aa.id.r_w.f iq  =  'w'  Then 
WHILE  temp.tv.ptr “ .nxt  <>  nil  DO 
BcGlN 

S  $s  s  +  1 } 

temp_tv_ptr  : =  temp.tv.ptr" .nxt 

END 

End; 

(*  save  tne  value  in  data  ocject's  permanent  record  *) 
do.array  tao.ldj * , s.cnt  :=  s; 

wRITELW  (aualt,  'tne  value  of  "s"  was  set  tc  ;  *,s  ;  •*) 
End; 


PRUCEOURt  copy-cn  (cn.ptr  ;  ptr-cn; 

VAR  rel-ptr  ;  ptr.cn); 


(*  this  procedure  creates  a  copy  of  a  conflict  historv 
passed  to  it  *) 


VAR 

old.ptr,  N£«.ptr  :  ptr.cn; 

BEGIN 

XF  cn.ptr  <>  nii  then 
BEGIN 

new  (rei.ptr); 

NEW.ptr  ;=  rei.ptr; 
old.ptr  ;=  cn.ptr; 
wrilLE  old.ptr  <>  nil  uC 
BEGIN 

Ntw.ptr * •  aa.id  :  =  oid.otr*.aa.ia; 
new  (NEN-ptr*,pair-ptr ) ; 
NE*-ptr*.pair-ptr*.aa_ia  :=  oin.ctr*. 

pair.ptr* . aa.in; 

NE-if.ptr*  .  pair-ptr  *  .metric. sum  :s 

old.ptr*  .pair -per* .metric-sum; 
old.ptr  :  =  old.ptr* .nxt; 

IF  old.ptr  <>  nil  then 
BEGIN 

NEW  (NE*.ptr*.nxt) ; 

Ntw-ptr  ;=  *£w.ptr*.nxt 
END  (*  IF  TrtEn  *} 

END;  l*  WHILE  +) 

NEw.ptr* .nxt  ;s  nil 

END 

ELSE 

rei.ptr  : =  nil 

END; 


PROCEDURE  detect.non.sr  (cn.ptr  ;  ptr.cn; 

VAR  non.sr  :  Doolean; 
var  rei.ptr’;  ptr.cn); 


(*  This  procedure  will  determine  it  there  are  any  cycles  in 
tne  conflict  nistory  linxed  list  witn  header  ana  trailer 
wnicn  is  input  to  it.  If  so,  tne  boolean  'non.sr'  will 
be  true  and  tne  pointer  'rei.ptr'  will  point  to  tne 
"minimal"  conflict  nistory,  witn  neader  and  trailer  wnicn 
contains  tne  cycle(s).  If  not,  tne’ boolean  'non.sr' 
will  oe  false.  *) 


VAR 

oase.otr,  lead-ptr,  follow. ptr,  bldptr ,prlnt-ptr  ;  ptr-cn; 
pbldptr  ;  ptr.cn.pair; 
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cnange,  found  :  boolean; 
cn.la  :  cn.pair.rect; 

IN 

C*  maxe  a  cooy  of  the  data  object's  conflict  nlstory  so 
that  it  can  oe  modified  ♦) 
rfRITELw  (audit,  'entering  detect-non.sr ' ) ; 
copy.ch  (cn.ptr,  rei.ptr); 

(*  detect  cycles  by  deleting  conflict  Dairs  wnicn  could 
NOT  be  involved  in  a  cycle  -  tnose  wnose  2nd  element 
never  appears  as  a  1st  element 
REPEAT 

cnange  :=  false; 
pase.ptr  :=  rei-ptr*.nxt; 
follow. ptr  :=  rel-ptr; 
lead.ptr  :=  base.ptr; 

while  base.ptr*. aa.ia. trans-sit®, trans.num  <>  ^999  0 
oeGIn 

cound  :  =  false; 

REPEAT 

lead.ptr  :=  lead.ptr* .nxt; 

If  ( (lead.ptr*, aa. id. trans. site. inlt-site  = 
oase.ptr* .pair. per* . aa.ia. trans-site . 

init.site) 

and  ( lead.ptr* .aa.id .trans. site. 

trans. nun  s 

oase.otr*. pair -per*. aa.ia. trans-site. 

trans. numn 

XHEn 

BEGIN 

found  :=  true; 
leaa-ptr*.aa-id.cn.seq  : =  o 
end' 

until  ((found  =  true;  or 

( 1 ead.p t r *, aa.id. t r an s.s ite.tr an s.n urn  = 

IF  found  =  true  ThcN 
BEGIN 

follow. ptr  ;s  case. per; 
base.ptr  ;=  base, ptr*. nxt; 
lead.ptr  : =  rel-ptr 
END  C*  If  THEN  *) 

ELBE 

(♦  tnrow  out  all  pairs  with  aase.ptr's  ina 
element  =  cn-id  *) 

BEGIN 

cnange  :=  true; 


cn.id.aa. id. trans-site  := 

base-ptr*.pair-ptr*.aa.ia.  trans -si:e? 

(*  delete  pair  Dase.ptr  points  to,  an-i 
continue  moving  pase.ptr  until  race 
is  not  deietea  *) 
while C  (Pase.otr“.Dair-ptr*.aa_ia. 

'  trans-site. init-site 
=  cn-io , aa.id . trans.site. init-site ) 
and  (oase-ptr".pair-Ptr“.aa-ia. 
tr ans-s ite . trans. num 
-  cn. la .aa-ld. trans-site, 
trans. num ) )  Du 

BEGIN 

f ollow-ptr* .nxt  :=  case.ptr* . rut; 
oase-ptr  : =  case.ptr * , nxt 
ENu;  (*  wHiLe.  ♦) 

(*  no#  searcn  from  oegmninc  of  list  for 
pairs  to  tnro#  out  *) 
foilow-ptr  :=  rei-ptr; 
leaa-ptr  :=  rei-ptr* .nxt; 

mHILE  lead-pt r * .aa.iu. trans-slte . trans-num 
<>  99y»  uO 

BEGIN 

IF  C ( lead-ptr* . pair-ptr* .aa.id. 

trans-site 

•init-site  =  ch. id. aa.id. 

trans-site 

•init-site)  ana  (lead-ptr*. 

pair-Ptr*‘.aa.ia 
.  trans-site,  trans-num  =  ch-id. 
aa.id  .trans.site. 
trans.num))  THEN 
BEGIN 

foilow-Dtr*.nxt  : = 

lead. ptr*. nxt; 
lead-ptr  :=  lead-ptr* .  r.xt 
END  (*  it  THtN  *) 

ELSE 

BEGIN 

f oilow.ptr  :  =  lead-ptr; 
lead-ptr  : =  lead-ptr* • nxt 
END  (*  It  ELSE  *) 

END;  (*  rtrtILE  *) 
lead-ptr  :=  rei-ptr; 
follow-ptr  :=  rei-ptr 
END  l*  IF  ELSE  *) 


(*  WHILE  ♦  ) 


(*  If  no  otner  cnanqes  nave  Deen  made  ana  if  tne  urs: 
element  of  a  conflict ' pair  appears  no»nere  else, 
tnen  throw  tnat  pair  away 
IF  cnange  *  false  then 
atGIN 

follow. ptr  :=  rel.ptr; 
lead. per  :=  rel-ptr*. nxt; 
while  lead.ptr  <>  nil  LG 

IF  lead.pcr*.aa.ia.ch.seg  =  o  The:- 
B£l»  IN 

IF  lead.ptr*. a a. ia.tra ns. site. trans-n urn 
<>  y999  THEN 

lead.ptr * .aa.ia.cn.sec  : =  1; 
follow. ptr  ;=  leaa.ptr: 
lead.ptr  ;  =  leaa.ptr* .nxt 

END 

ELSE 

BEGIN 

f ollow.ptr* . nxt  :=  lead.ptr*, nxt; 
lead.ptr  :=  leaa.ptr*. nxt; 
cnange  ja  true 

END 

END  («  IF  THEN  *) 

UNTIL  cnange  a  false; 

(*  set  the  Boolean  'non.sr'  *) 

IF  rel.ptr*. nxt*. aa. id, trans. site. trans-num  a  9999  then 
non.sr  :=  false 
ELSE 

BEGIN 

non.sr  ; =  true; 

wRITELN (audit# 'detect  non  sr  aetected  non  sr'J# 
wRITELN (audit, 'cycle  is  ; 
print-ptr  :=  rel.ptr " ,nxt; 
while  print-ptr*. nxt  <>  nil  Du 
BEGIN 

writeln (audit# Dr int-pt r*,aa. id. trans-site, 
init.site  ;  i # print-ptr * .aa.id . 
trans-si te. trans-num  :  2, 
print-ptr*. aa. id, st.num  ;  i, 
print-ptr*. aa. id. aa.nuai  :  2, 

'  ', print-ptr", pair-ptr * .aa.id. 
trans. site, init.site  :  2# 
print.ptr*.pair.ptr*.aa.ia. 
trans-site, trans-num  ;  2# 
pr in t-ptr* , pair-ptr* .aa.id. 
st.num  ;  2, 

print-ptr* , pair-ptr* . aa.id . 
aa.num  ;  1 ) ; 

print-ptr  : =  print-ptr*. nxt; 
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D 


;********) 


PRQCEOURE  determine. rollback  (rei-ptr  :  ptr.cn; 

v'AR  rollbacx.ptr  :  Dtr-cn); 

(*  This  procedure,  when  passed  a  conflict  history  iinKed 
list  pointed  to  by  'rel.ptr',  will  produce  a  new  lin<ed 
list  of  conflict  history  pairs  wnicn,  wnen  roiled  oac<, 
will  eliminate  all  present  cycles.  rne  input  list  nust 
nave  a  header  and  trailer,  tne  output  list  is  ouilt 
without  them.  *) 


temp.ptr,  follow. ptr,  copy. ptr,  aad-ptr  :  ctr.cn; 
small  s  integer; 
cycle  i  boolean; 

BEGIN 

rolloacK.ptr  ;=  nil? 

C*  copy  the  conflict  history  liniced  list  *) 
wRITELn  (audit,  'entering  aetermine-rollsacic' ) ; 
copy.cn  (rel.ptr,  cooy.ptr); 

REPEAT 

(*  find  tne  conflict  pair  with  smallest  metric. sum  *) 

temp.ptr  :  =  copy. ptr*. nxt; 

small  :=  temp. ptr * . palr.ptr* . metric. sum? 

REPEAT 

IE  temp.ptr" .palr.ptr* , metric-sum  <  smali  Then 
small  temp.ptr*'.  pal  r-ptr*.  metric-sum; 

temp.ptr  ;=  temp.ptr* .nxt 
UNTIL  temp.ptr" .nxt  =  nii; 


(*  delete  tne  conflict  history  pair  with  tne  smallest 
metric. sum 

temp.ptr  :=  copy-ptr" .nxt; 
follow. ptr  ;=  copy.ptr; 

WrtILe.  temp. ptr", pair-ptr" .metric-sum  <>  small  Du 
BEGIN 

follow. ptr  j  =  temp.ptr; 
temp.ptr  :=  temo.ptr*.nxt 
Eno; 

foilow-ptr".nxt  : = 


temp.ptr" .nxt; 


C*  append  tne  aeletea  pair  to  the  roiioacK  list  * ) 
temp.ptr*.nxt  :  =  nil; 

If  rollpactc.ptr  *  nii  then 
BEGIN 

rollcacK.otr  :=  temp.ptr; 
add.ptr  : =  rollbacx-ptr 

END 

ELSE 

BEGIN 

add.ptr*, nxt  :=  temp.ptr; 
add.ptr  5=  add.ptr* .nxt 
end; 

C*  determine  ir  any  more  cycles  exist  *) 
detect-non.sr  ccopy-ptr,  cycle,  copy.ptr) 

UNTIL  NOT  cycle 


End; 


function  is-in-list  (lnit-site  :  cnar; 

‘trans-num, st-num , aa.num  :  integer; 
llstptr  :  ptr-reexec)  :  coo lean; 


C*  tnis  returns  true  if  tne  incut  list  memoer  is  in  the  lis 
of  type  re.exec.rect ,  false  otherwise  *) 

VAH 

curptr  :  ptr.reexec? 

begin  £*func*) 

is. in. list  : =  false; 
curpcr  :=  llstptr; 

IF  curotr  =  nil  then 
is. in. list  : =  raise 
ELSE 

BEGIN  C4EL3E*) 

repeat  c*untll  curptr  *  nil*) 

IF  Ccurptr*. lnit-site  =  imt.site)  and 
(curptr* 4 trans.num  =  trans.num)  and 
Ccurptr* . st-num  =  st-num)  and 
Ccurptr* . aa.num  =  aa.nuir.  j  Then 
is-in-list  ;  =  true; 
curptr  i-  curptr*. nxt; 
until  curptr  =  nil; 
end;  C*EL3£*) 

Eno;  C  *f unc  is. in. list*) 


***.»***■*.**) 
**■»*  ) 


PROCEDURE  ch.dispose  (var  nead-ch-ptr  :  ptr-cn); 

(*  This  procedure  will  release  un-neeaed  storage  space  so 
tnat  It  may  later  oe  usea  again.  It  does  so  tor  roiled 
oacx  conflict ’ Histories  •  *) 


VAR 

ch-ptr  :  ptr.cn; 

BEGIN 

while  nead.cn. ptr  <>  nil  DO 
BEGIN 

cn.ptr  ; =  neaa.cn.ptr; 
nead.cft.ptr  : =  nead-cn-ptrA.nxt; 
DISPOSE  (cn.ptr*.palr.ptr j ; 
DISPOSE  (cn.ptr) 

END 

end;  (*  cn.aispose  *) 


PROCEDURE  rolibacK.cn  (inlt.site  :  cnar; 

trans-num,  st-num,  aa.num  ;  inteoer; 
from.commit  ;  oooiean); 

(*  rnis  procedure  will  remove  conflict  Histories  from 
tnrougnout  tne  database,  it  called  from  t.ne  commit 
procedure,  all  ch's  will  be  removed  for  tne  committing 
trans  -  Identified  Dy  Its  inlt.site  ana  traps. nun.  it 
called  from  rolloacK ,  a  list  of  cn  pairs  *  111  nave  been 
nung  on  tne  purge. list-ptr .  *) 


PROCEDURE  purge.cn  (var  nead.cn  ;  ptr.cn; 

pg.ptrtocn  :  ptr-cn; 
var  nolo. per  :  ptr-cn); 

(*  tnis  removes  tne  cn  pair  member  pointed  to  oy  Dg.ptrtocn 
from  tne  list  pointed  to  oy  nead.cn*) 


VAR 

tvi.ch  :  ptr.cn; 

begin  (*purge  cn*) 

IF  nead.cn  <>  ml  ThEN 
BEGIN  (♦!♦) 
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IF  head.cn  =  pq.ptrtoch  Then 
BEGIN 

heaa.ch  :=  pg.ptrtocn* .nxt; 
nolo.ptr  :=  pg.ptrtocn*. nxt; 
pg-ptrtoch*.nxt  :  =  purge-list.ptr ; 
purqe.llst.Dtr  ;  =  pg.ptrtocn; 

END 

ELSE 

BEGIN  (*2*) 

tvi.cn  :=  neaa-ch; 
while  tvl-ch*.nxt  <>  pg-ptrtoch  ou 
tvi.cn  :=  tvi.cn*. nxt; 
tvl.cn*. nxt  :=  pg.ptrtocn*. nxt; 
hold.ptr  :=  pg.ptrtocn* .nxt; 
pg.ptrtocn*. nxt  ;s  purge. iist.ptr; 
purge. list. ptr  :=  pg.ptrtocn 
ENU  t*2*) 

END  C  *  1  *  ) 

end;  (*purge  cn») 


:  *  *  * 


PROCEDURE  purge.commit 


(VAR  neaa.cTi.cn 
cm.init.slte  : 
cm.trans.num  : 


s  otr.cn; 
cnar ; 
integer) ; 


C*  this  finds  all  the  cn  members  In  the  list  pointed  to  uy 
nead.cm.ch  wnicn  nave  Identifiers  tne  same  as  tne 
init.slte  and  trans.num  and  removes  tr.em  from  tne 
list  oy  calling  purge.cn  *) 


VAR 

purge. cm. fig  :  Doolean; 
nold.cm.ptr, tvl.pr.cm  :  ptr-cn; 

BEGIN  (*  purge  commit  *) 

IF  nead.cm.cn  <>  nil  HEN 
BEGIN  (*1*) 

tvl.pr.cm  : =  nead-cm-cn; 
purge. cm. fig  :  =  false; 
ahile  tvl.or.cm  <>  nil  do 
BEGIN  C  *2  * ) 

IF  Ctvl.pr.cm*.aa. la. trans-site. init. site  s 
cm.init.slte)  and  C tvl.pr.cm* . aa. id . 
trans.s lte •  tr ans-num  =  cm. trans.num)  i  Htti 
BEGIN 

purge-cnCnead-cm.cn, tvl.pr.cm , 
nold.cm.ptr); 
purge-cm-fig  :=  true; 

END 

ELSE 
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IF  ( tvl-pr-cm* , pair-ptr*  .aa-id.  trans-s  ice 
init-site  = 

cm-init-site)  and  C tvi„pr-cm* . 
pair-ctr*.  aa-id, 

trans-sice,  trans-nun  =  cn^crars-num ) 
THEN 

BEGIN 

purge-cruheaa-cm-cn ,  tvi_pr-cm , 

hola-cm.pt r ) ; 

purqe-cm-flg  :  =  true; 

END; 

IF  purge-cm.f lg  int'N 

tvl-pr-cm  : =  nola-cm-ptr 
ELSE 

cvl-pr-cm  : =  tvl-pr-cm* . nxt; 
purge-cm-fiq  :=  false; 

EwO 

END  (*1*) 

END;  ( *  purge  commit  * ) 


PROCEDURE  purge. roiloac<  (VAR  nead-rl-cn  :  ptr-cn; 

ri-i nit-site  :  cnar ; 
rl-trans-num, rl-st-num , 
ri-aa-num  :  integer); 

(*  this  finds  all  tne  cn  members  in  tne  list  pointed  to  oy 
nead-rl-cn  *hicn  nave  identifiers  tne  same  as  tne 
init-site  and  trans.num  and  st-num  ana  aa.rurn 
and  removes  tnem  from  tne  list  oy  calling  curge-cn  *) 


VAR 

purge-rl-flg  :  ooolean; 
noio-rl-ptr # tvi-pr-r 1  ;  ptr-cn; 

begin  (*  purge  roiioacK  *) 

IF  nead-rl-cn  <>  nil  THEN 
BEGIN  (*i*J 

tvl-pr-rl  : =  nead-rl-ch; 
purge-rl-flg  :  =  false; 

*hil£  tvl-pr-rl  <>  nil  do 

BEGIN 

IF  (tvl-pr-rl*. aa-id. trans_site. init-slte  = 
rl-init-slte ) ‘ and  (tvi-pr-ri*. aa-id. 
trans-site, trans-num  =  rl-trans-num )  ana 
(tvi-pr-ri* .aa-id. st-num  =  rl-st-num)  and 
(tvl-pr-rl*. aa-id, aa-num  =  rl-aa-num)  T  n  E  n 
BEGIN 

purge.cn (head-rl-cn , tvi.pr.r 1, 

nola-r i-ptr ) ; 
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purge.n.f  lg 


true; 


END 

ELSE 

If  ( tvl.pr.r 1*  , pair „ptr A ,  a a, id.  trans.site 
init. site's 

rl-init-site;  ana  l tvl.pr.r i* . 
palr-ptr*.  aa.id, 

trans.site.trans.num  =  rl-trans-num; 
and  C  tvi.pr.ri" . pair.ptr" .  aa.ia. 
s t.num  =  r i.stln jm j  ana  i tvi.or.r 1" . 
pair.ptr" .aa.ia. aa.num  =  ’  r  i.aa.nufi;) 

I  HEN 

BEGIN 

purge. cntnead.rl.ch, tvi.pr.ri, 

noid.r i-ptr ; ; 
purge. ri. flu  :=  true; 

END; 

If  purge. rl. fig  THEN 

tvi.pr.ri  ; =  nolo.ri.ptr 
ELSE 

tvi.pr.ri  :  =  tvi.pr.rl*,nxt; 
ourge.rl.tlg  :  =  false; 

END  (♦**) 

END  (*1») 

END;  (*  purge  rollDac<  *) 


procedure  purge.tr.cn  (pg-lnit-site  ;  cnar; 

pq.trans.num , pq.s t.num , 
pg.aa.num  ;  integer; 
tr.commit  :  boolean; ; 

C*  tnis  removes  tne  cn's  from  the  anoie  transaction  ana 

suotransaction  structures  *nicn  nave  tne  same  parameters 
as  tne  Input  lnlt-s lte , trans.num , st.num  and  aa.num. 
it  tr-commit  is  true,  the  call  came  from  the  commit 
oroc,  if  false  the  can  came  from  tne  rolioacx*; 


VAR 

tr. head , st. head  :  otr.ch; 
tr.tvl  ;  ptr.trans; 
st-tvi  :  ptr.strans; 

begin  (»  purge  tr  cn  *) 

If  trans.ptr  <>  nil  vhen 
BEGIN  (*1*J 

tr-tvi  :=  trans.ptr; 

ILE  tr.tvl  <>  nil  Du 
BEGIN  (*2«) 

If  tr.commit  THln 


purge-commit  (  tr.tvl* ,  trans.cr—ptr  , 

pg-init-site  , pa-trans-num j 

ELSE 

purge-rol  loacic  itr-tvi*,trans-cn-otr, 

pg-init-site ,  po.tr  ans.r.uT , 
pg-st-num , pg.aa.num j ; 
st-tvi  :=  tr-tvi* .st-ptr ? 

WHILE  st-tvi  <>  nil  L'u 
BEGIN  (*3*) 

IF  tr-commit  1'HtS 

purge.commit ( s t.tvi* , st.cn.ptr , 
pg-init-site,pg-trans_nutiij 

ELSE 

purge. roilpac<ist-tvi*,s  t-cn-p tr , 
pg-init-site, pa. trans.num, 
py-st-num ,  og.aa.num ) ; 
st-tvi  : =  st-tvi*. nxt; 

EMC,*  (*i*J 
tr-tvi  :=  tr-tvi*.nxt; 

END  (*2*) 

END  (*l*) 

end;  (*  purge  tr  cn  *) 


procedure  purge.do.cn  (init-site  :  cnar; 

trans.num,  st.num,  aa.num  :  integer; 
do-trom-commit  ;  ooolean); 

(*  tms  *111  purge  a  conflict  history  laentlriea  oy  aa.io 
elements  from  ail  d.o.'s  ana  all  temp  versions  *) 


1  ;  integer; 
tv-ptr  :  ptr-tv; 

BEGIN 

FCft  1  ::  1  10  99  DQ 

IF  do-array  tlj  <>  nil  Then 
BtGIN 

(*  purge  this  cn  from  the  a . o.  oerm 
IF  do-trom-commlt  1'nEN 

purge-commit  (do-array  l U * . cn-ptr , 
init-site,  trans-num) 

ELSE 

purge. rollback  (do-array  UJ*. cn-ptr, 

'init-site,  trans-num , 
st-num,  aa.num); 

(*  purge  tnis  cn  from  all  tv's  at  this  d.o.  *) 
tv-ptr  :  =  ao-array  liJ  **.tv-ptr? 


WHILE  tv.ptr  <>  nil  UQ 
Be.  GIN 

If  do-f rom.commit  iHEn 

purge.com.nl  c  (tv.ptr*,  tv.cn.otr , 

lnit.site,  tranc.nuT) 

else 

purge. roll oacx  ( tv.ptr* . tv.cn.Dtr , 

"inic.site,  crans.num, 
st.r.um,  aa.nu.vtj; 
tv.ptr  : =  tv.ptr*. nxt 
END  l*  WHILE  *) 

END  (*  IF  THEN  *) 
end  ;  (♦  purge_ao.cn  *) 


(*  main  for  rolioacK.cn  *) 

BEGIN 

It  from. commit  then 
BEGIN 

wkIIElN  (auait,  'rollDac<-cn  is  removing  cr."s  tor', 
'  commit ' ) ? 

purge.tr.cn  C lnit.site , trans.num , u , u , from.ccmmlt) ; 
purge.do.cn  (lnit.site, trans.num , o , o , trom.commit ) 

END 

ELSE 

BEGIN 

WRITELN  (audit,  'rolloacK.cn  is  removing  cn"s  for', 
'  rolloacK ' 3 ; 

purge_tr.cn  (lnit.site,  trans.num,  st.num,  aa.num, 
f rom.commi t ) ; 

purge.do.cn  (mit.site,  trans.num,  st.num,  aa.r.um, 
t rom.commit ) 

END  (*  IF  ELSE  *) 
end;  (*  rolloacK.cn 


PROCEDURE  release.locK  (ao.id  :  integer; 

rel.aa.ptr  :  ptr.aa); 

(*  tnis  procedure  win  release  ail  iocks  nela  oy  tne 
currently  executing  atomic  action  *) 


VAR 

curr.ptr  i  Ptr-dic; 
dummy. st.ptr  :  ptr.strans; 
dummy. tr.ptr  :  ptr.trans; 
nxt.aa.ptr  :  ptr.aa; 
rel.dispose.ptr  : ' otr-locx-g; 


tsEGIN 

rel.aa.ptr* . nave-loc*  :=  false? 

If  ao-array  Cdo.idJ * . locx-q.ptr  <>  nil  the n 
BEGIN 

( *  find  aa  at  front  of  ioc'<  queue  +  cnan ue  its 
loc<  flag  *) 

*ITn  ao-array  (do.ldj “ , iocx-q-ptr * . aa.ia  au 
flnd.aa  c trans.slte. imt-site, ' 

’  t  ran*. si  te.tr  ar.s.num, 
st-Rum,aa-num,nxt-aa«ptr  ,au(nny„st-ctr , 
aummy.tr.ptr  3 ; 

IF  nxt.aa.ptr  <>  nil  IHEN 
BEGIN 

nxt-aa-ptr*.nave-ioc'<  :  =  true; 
nxt-aa_ptr* . in.ioc<q-t 19  : =  false; 
nxt.aa.ptr* .  step-nuir.  :  =  3 

END 

ELSE 

WR1TELN  (audit,  'aa.id  not  found C release„ioc< ' j ; 

(*  call  find-tv  and  send  cortaininq  tne  tv  to  eacn 

site  jonere  tne  d.o.  is  repiicatea  *) 
with  ao-array  Cdo.idj  **.ioc<-q-ptrA.aa»ia  do 
BEGIN 

R I X  E  (audit , 'release  Iock 

*  k  I T  E  L  N  (audit ,  'removed  from  iock  queue  ;  '3; 
sHlTz  (aualt , irans-si te. init.si te  :  23; 
aRIIS  (audit, trans-site. trans.num  ;  2;; 

#k  I  IE  (aualt ,  st-num  :  23? 

*  R ITE  (audit , aa.num  :  2)? 

*HlTELN(audit3 ; 

i*  remove  aa  from  front  ot  iockg  +  roilcac< 
it's  cn's 

rolloacK.cn  (trans-site. inlt-site,  trans-site 
’ ,  trans-num , st-num , aa-num .false; ; 
end;  (*  vKitn  *3 

rei.dlspose.ptr  :=  do-ar ray  ido-idj “ . ioc<«a.ptr ; 
do. array Cdo-idj *. ioc<-a.Dtr  := 

ao.array  Cao.laJ ",  looc-q-ptr* . nxt ; 
dispose ( rel-d is  pose- per ) ? 

END  (*  IF  TnEN  *3 
ELSE 

BEGIN 

(*  release  loots  at  eacn  site  d.o,  is  reciicateo 
at  -‘after  first  installing  tne  corresponding 
temo  version  *) 

curr-ptr  :=  dlc-array  Cao.iaj ; 

<*n!LE  curr-ptr  <>  nil  Du 
BtGlN 


t itiD i 


END 


It'  curr-otr* . site.ia  = 

dlc-array  luj  “ . site. id 

BEGIN 

do-array  ido-id J * . Iock  :=  false? 
#RII£LN(aualt,  'release  iock  for  u.o,  *, 

do-id ) ; 


END 

ELSE 


(*  send  msg  to  repiicatea  site  - 

curr-ptr*, sice-id  to  1st  install  a  tv, 
tnen  release  tne  iock  *) 

WKITELW  (audit,  'release  lock  tor  a.o. 

ao. id  :  2, 

'  at  site  curr-ptr“ . site-io ) ; 
curr-ptr  :=  curr-ptr* .nxt; 

END  (*  rfrtILfc  *) 

C*  IF  ELSE  *) 


procedure  rollDac<  (miist-ptr  :  ptr.cn; 

var  roll-cn-ptr  ;  ptr.chj; 

(*tnis  rolls  oacK  any  atomic  actions  #nlcn  appear  in  tne 
list  pointed  to  by  ihllst  and  any  atomic  actions  in 
tne  same  suo  transaction  *hicn  folio*  tne  rolled  oac* 
atomic  action.  Any  temporary  version  ouiit  ey  tne  roliea 
oac<  atomic  actions1  are  deleted  ana  any  temporary  versions 
cased  on  tne' temp  ver  which  was  aeletea  are  also  oeietea 
and  tneir  atomic  actions  are  roliea  Dae*.  tne  output 
pointer  points  to  the  list  of  atomic  actions  *nich  must 
oe  executed  oefore  any  others  are  allowed  to  execute, 
tne  input  list  will  not  De  empty  when  tnis  croc  is  caliea. 
no  neaoers  or  trailers  on  any  output  list,  a  list  or 
conf  nlstories  from  rolled  Dac<  temD  vers  ls’aiso 
outcut.*) 

label  l; 

VAK 

lsatv,oKaafig,oKtvtlg, first. rol-flg,o<-f lg  :  coolean; 
islte  :  char; 

l,tnum,stnum,aanum,doid  :  integer; 
incnptr  :  ptr.cn; 

foiroiptr,nurolptr,nureptr,toioreptr, 
currol , rollpack.ptr , re.ptr  j  ptr-reexec; 


( *  procedures  tor  roiloac*  *) 


PROCEDURE  rollbacK-aa  (init-site  :  cnar; 

trans-num , st.num , aa.num  :  integer; 
VAR  oxaaf lg, isatv  s  boolean); 


(♦This  rollsbacx  atomic  actions  founa  on  the  rolxoacK  list 
If  any  successor  atomic  actions  need  to  oe  roller  oac< 
due  to  rolling  an  aa  oacK,  tne  successors  are  placed  at 
the  end  of  tne  roll-  bacfc  list,  me  t(r)  quantities  are 
also  adjusted  at  the  suo  trans  and  trans  as  necessary, 
if  tne  atomic  action  is  in  tne  locx  queue  it  is  removed 
and  lastv  Is  set  to  false*) 


rollo-aa-ptr  ;  ptr-aa; 
nurolptr,  tvlptr  :  ptr-r eexec; 
ptrtotv  j  ptr.tv; 
donum  :  integer; 
f lndptr , curptr  :  ptr-iocK.q; 
rollo.st.ptr  :  ptr-strans; 
rollo.tr. ptr  :  ptr. trans; 

(*  proc  for  roiloacx.aa  *) 


PROCEDURE  t ina.loc.q.memo  (initsite  :  cnar;  transnum, stnun 

aanum.doid  :  integer; 

VAR  curptr  :  ptr-locK.o) : 

(*tnis  proc  returns  tne  pointer  to  a  memper  of  tne  ioc*. 
queue  at  aoio  witn  tne  attrloutes  input  to  tne  oroc.  it 
it  cannot  find  tne  memoer  It  returns  a  nil  in  curotr*) 


tvlptr  ;  ptr-locK-q; 


BEGIN  (*find  loc  q  memp*) 

tvlptr  :=  do-array (aoid) “ . loc<-q.ptr : 

IP  tvlptr  *  nil  then 
curptr  ;=  nil 
ELSE 

BEGIN  (*1*) 

curptr  ;s  mi; 

REPEAT  '  (*untll  tvlptr  =  nil  or  found  memoer*) 
IF  (tvlptr*. aa-ld. trans-site, 

lnlt-slte  s  initsite)  and 
(tvlptr*. aa-ld. trans.site. 

trans. num  =  transnum)  and 
(tvlptr*. aa-ia. st.num  =  stnum)  ana 
(tvlptr*. aa-ia.aa.num  *  aanun)  then 
curptr  s *  tvlptr 


£ 


tvlptr  :=  tvlptr*. nxt 
UNTIL  (tvlptr  =  nil)  or  (curptr  <>  nil) 

end;  (*1*j 

END;  (*find  loc  q  memoer*) 


BEGIN  (*proc  rolioacx.aa*) 
rollo.aa.ptr  s=  nil; 

f  ind.aai  ini t. site,  trans. num ,  st-nu:n  , aa.num , 

rolio.aa.ptr , roll b.st. per,  rdiib.tr-ptr) ; 

IF  rolio.aa.ptr  =  nil  THEN 
oxaatlg  :=  raise 
ELSE 

BEGIN  (*1*) 

IF  (rolio.aa.ptr*. nave-iocx)  then 

release.locx (rollo-aa-ptr* .aa.la.ao.ia , 
rollo-aa-ptr) ; 

oxaaflg  :=  true; 

aRITELN (audit , 'roiling  pacx  atomic  action  :'); 
WFITECaudit, init.site  :  2); 

*>RITE(audlt, trans. num  :  2); 

*RIT£(audit , st-num  :  2); 

*RII£(audit,aa_num  :  2); 

*RITELN (audit) ; 

(*  IF  the  atomic  action  to  rolloacx  v-as  in  steo  i 
adjust  tne  tin  qtys  in  tne  sub  trans  anu 
Dossioly  tne  trans  *) 

IF  rollb.aa.ptr*. step. num  =  i**  lHfcu 
BEGIN 

IF  r ollb-st.ptr" .aa-fin-aty  = 

roliD.st.ptr * . aa.uty  then 
rollb-tr-ptr*.st.£in-qty  ;  = 

r6lio-tr-ptr‘*,sc-tin-qty  -  l; 
rollb-s t-ptr".aa-f in-qty  : = 

rdlxr.st.ptr*.aa.f in.dty  -  i; 

end; 

( *  It  tne  atomic  action  o*ns  a  t(r)  temo  version 
tnen  adjust  tne  quantities  at  tne  sud  trars 
and  trans  as  necessary*) 
find.tv(init. site, trans. n urn, st.num, aa.num , 
rollb.aa-ptr* ,aa-id.do.iu,otrtotv); 

IF  ptrtotv  <>  nil  THEN 

IF  ptrtotv*. stat-fia  s  'r'  then 
BEGIN 

IF  roliD.st.ptr* . aa-tr-aty  = 

roliD.st.ptr* . *a.aty  The.. 
rollo.tr. ptr*.st.tr_qty  ; = 

rollo-tr.ptr* . st-tr-aty  -  i; 
rollp-st-ptr* , aa-tr-aty  := 

rollp-st-ptr* ,aa-tr-qty  - 


l 


END; 

(♦If  tne  atomic  action  is  in  tne  Lock  aueue, 
remove  it*) 

donum  :=  rollo-aa-ptr * . aa-ia .ao-ia ; 

IF  roilc-aa-ptr*.in-ibcKq-tl3  THE:. 

*1 th  rollo-aa-ptr ", aa-id  DU  oEgIn  1*1.5*; 
flna.ioc-q-memb( trans-site  ,init-site, 

'trans-site, trans-num, 
s t-num , aa-num , do»ia , curptr ) ; 
IF  curptr  <>  nil  i*Mt« 

BEGIN  ( *  1 «  b* ) 

'  roilbacK-cnt,  trans-site,  imt-site, 

‘  trans-site, trans-rum, 
st-num.aa-num, false;  ; 
rtKITECaudit ,  'rolloacx-aa  is  r emovmy ' ) ; 
aHITELN (auait t *  aa  from  Iock  q 
*HITELN  (auoit ,  trans-si  ce .  imt-site  :  , 

’  trans-s ite .  trans-num.  ;  4, 
st-nux  ;  4,  aa-num  :  **); 
lsatv  :*  false; * 

IF  do.array (donum) *,loc<-q-ptr  =  curntr 
I  HEN 

do-array idonumj *. locx-a.ptr  := 

ao-array  [aonumj*.iOCK-a-ptr“.nxt 

ELSE 

BEGIN  (*1.7*) 

finaptr  ;=  ao-array  (aonumj , 

locx-q-ctr; 

*HILE  f  maotr*.r.xt  <>  carter  uo 
finaptr  :=' f inuctr* .nxt; 
finaptr*. nxt  :=  curptr*. nxt; 

END  (*1.7*) 

END  (  *  1  •  b  *  ) 

ELSE 

dEGlN  (*1.6*) 

<*H  ITELN  (auait, 

'roiaa  tailed  to  tnd  ioc  memo', 
trans-site. mit-site  :  4, 
trans-site, trans-r.um  ;  **, 
sc-num  ;  <*,  aa-num  :  4); 
m KIT EL H (audit) ; 

end;  (*l.b*) 
end;  (*1.s*) 

(♦reset  fields  in  rolled  oacfc  atomic  action*) 
rollo-aa.ptr*.aa-id,cn-seq  : =  u; 
rollo-aa-ptr* • stat  :=  'x'; 
rollo-aa-ptr* , step-num  ;=  0; 
rollo-aa-ptr*. time-vai  ; =  -l; 
rollD-aa-ptr* . m-locxq-f lg  ;=  false; 
rollo-aa-ptr  :  =  rollo-aa-ptr*. nxt; 
whlLt  rollb-aa-ptr  <>  nil  Du 
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oEGlN  C  *2» ) 

(*£lna  and  sena  to  roilDacx  list  any  atomic 
actions  wnicn  executea  after  the  roi*e-: 
oacx  atomic  action*} 

If'  roilc-aa-ptr" .stec.num  <>  v  nt- 
BEGIN  l*J*)  * 

IF  f.QI  ls_in-listcrollo_aa_ptr*. aa_io, 

trans-site. 

lnit-site,rollb_aa_ptr*. aa.ia. 

trans-site. 

trans.nmr , roilo_aa_ptr * . aa-ia. 

st. hum# 

rolib.aa.ptr*  .aa.xd ,  aa.nu.r. , 
roilbacx-ptr J 

BEGIN  c*4*} 

new  cnurolptr ) ; 
nurolptr* . init_site  := 

rol  io.aa.ptr  * .  aa_i  -j . 
trans_site.init-.site; 
nurolptr  *.  trar.s_nurr  :  = 

rollo-aa-ptr*  .aa_lcs. 
trans.site .  trans-nun- ; 
nurolptr * . st.nuo.  :  = 

roiiO_aa_ptr“ .aa_id. 
st_num; 
nurolptr * . aa-r.um  :  = 

roilD_aa_ptr".aa_ia. 

aa-num; 

nurolptr* . do_io  : =  roiin_aa_otr “ . 

aa_ia.  ao_ia; 
nurolptr* . nxt  :=  nil? 

IF  roilDacx-Dtr  =  nil  then 
roiiDacx-ptr  :=  nurolptr 
ELSE 

BEGIN  i.*b*} 

tvlptr  :=  rollbacx-ptr ; 
'irtlLE  tvlptr*. nxt  <>  nil  uQ 
tvlptr  :=  tvictr*.nxt; 
tvlptr*. nxt  :  =  nurointr; 
END?  ( *5* ) 

END?  (.*4*; 

rollD_aa_ptr  ; =  roliP_aa_ptr * . nxt 

END  l*J*} 

ELSE 

roiib-aa-ptr  :=  nil? 

END?  (*2*) 

END?  (*!*) 

end?  (*proc  rollbaexaa*) 


) 
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PROCEDURE  rollDack.tv  (init.site  :  cnar; 

trans.num , s t.num , aa.num , 
do. Id  :  integer; 

VAR  oktvflg  ;  boolean); 


(♦this  rollsoack  a  temp  version  as  a  result  or  the  terr-p 
versions  atomic  action  Deing  in  the  roiloack  list 
IF  there  are  suosequent  temp  vers  cased  on  tne  rolioac< 
candidate  tney  are  placed  on  tne  roiioacx  list  for 
future  rolloack^) 


VAR 

otrtotv , curptr , tv. dispose. ptr  :  ptr-tv; 
rolptr  ;  ptr.reexec; 
tviptr ,nurolptr  :  ptr-reexec; 
donum  i  integer; 


(♦  proc  for  rolloack.tv  ♦  ) 


PROCEDURE  copy.to.roll.cn  (curptr  :  ptr.cn) ; 

(♦tnis  copies  the  list  of  conf  hist  pointed  to  oy  curotr  to 
a  rolloack  list  pointeo  to  Dy  rol l-cn.ptr ♦ ) 

VAR 

tviptr  i  ptr.ch; 

begin  (♦proc  copy  to  roll  ch*) 

XF  foii.cn. ptr  =  nil  THEN 
roii.cn. ptr  : =  curptr 
ELSE 

BEGIN  (♦!♦) 

tviptr  roll.cn.ptr; 

/*HILE  tviptr*, nxt  <>  nil  DO 
tviptr  :=  tviptr", nxt; 
tviptr", nxt  :=  curptr; 

END;  (♦!♦) 

END;  (♦proc  copy.to-roil.ch*; 


**) 


begin  (*oroc  rolloack.tv*) 

f ind.tv ( ini t.site , trans.num, s t-num , aa.num ,ao. id, otrtotv); 
XF  ptrtotv  =  nil  THEN 
oktvflg  ;s  false 
ELSE 

BEGIN  (*2*) 

oktvflg  ;=  true; 

«RITELa (audit, 'rolling  oack  temp  version  ;'); 
*RITE(audit, init.site  :  2); 


wKITECaudit , tr ans.num  :  2j; 
wHITECauait, st-num  :  2); 
whITE C audit ,  aa-nurc  :  2); 

*RITELN(audlt)  ; 

cur p cr  : =  do. array tdo-id) *.tv.ptr; 

(*the  case  where  the  rollback  temp  ver  is  tne  only 
one  in  tne  list*) 

IF  Ccurptr  =  ptrtotv)  and  (ptrtotv*, nxt  =  nil)  imen 
BEGIN  1*2.5*) 

IF  ptrtotv  <>  nil  Then 
DispcsE(ptrtotv) ; 
do.array Ldo.iaj * . tv.ptr  :=  nil; 
copy-to.roll.cnl ptrtotv* . tv_.cn.ptr) ; 

END  ( *2 . 5* ) 

ELSE 

BEGIN  C  *  3* ) 

(*tne  case  where  tne  rollcac<  temp  ver  is  tne 
first  member  in  tne  list--ouiid  a  aummv 
first  member  so  you  can  handle  it  HKe 
tne  general  case*) 

IF  curptr  =  ctrtotv  r.-iE'a 
BEGIN  C  *3 • 1  * ) 

donum  :=  curptr*. aa.ia.ao.id; 

Nt.i  Ccurptr ) ; 

curptr*.aa.id. trans-site, imt.site  :  = 

'  x ' ; 

curptr*. nxt  :=  ptrtotv; 
do-array  luonua')  *.  tv.ptr  :=  curotr; 
end;  c  *  3 . 1  * ) 

(*hanale  the  general  case  where  tne  rolibacx 
temp  is  imoedaea  in  tne  list*) 
while  curptr*. nxt  <>  ptrtotv  oo 
curptr  ;=' curptr*. nxt; 
curptr*. nxt  ;  =  ptrtotv*. nxt; 
copy- to.roll.cn  (ptrtotv*. tv.cn.ptr ) ; 

IF  ptr  totv"  .  aa.id .  r.w.;  ig  <>  *r'  iritn 
BEGIN  C  *  3 , 5* ) 

(*rolioacx  supsequent  temp  vers*) 
wnlLE  curptr*, nxt  <>  nil  Du 
begin  C  *i • o* ) 

IF  ptrtotv  <>  nil  Then 
DiSPuSt(ptrtotv) ; 

If  NOT  is.in-li5tlcurptr*.nxt".aa-iu. 

trans.site. 

ini t- site, curptr*. nxt*. a a. ia. 

trans.site. 

trans. num, curptr*. nxt*. aa-id. 

st-num , 

curptr* .nxt* ,aa_ id. aa-nurn , 
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rol lDacK-ctr j  'i-'-c.,* 

BEGIN  (*•*♦; 

•MLatnurolptr) ; 

nurolptr* • init-st  te  :=  curptr* . nxt* . 

aa-iu.  trans.site .  ini  t-sit •*; 
nurolptr*. trans-num  :=  curctr* .  .nxt* . 

aa-la. trans-site.  tr  ar.s.num; 
nurolptr* . st-num  :=  curptr* . nxt* . 
aa-ia. st-num 

nurolptr*  .aa-r.um  :=  curttr* . nxt*  . 
aa-la. aa-nun? 

nur oiptr * '.do-ia  :=  cur atr* . nxt* . 

ad-ia. ao-ia; 
nurolptr* .nxt  :•  nix; 

IF  roilDacK-ptr  =  mi  TrEf, 

rolioacK-ptr  :*  nurolptr 

ELSE 

BEGIN  C*b*j 

tvlptr  :=  roi ioacx-ptr ; 
w.iIliE  tvlptr*. nxt  <>  nix  uCJ 
tvlptr  :  =  tviptr*. nxt? 
tvlptr*. nxt  nurolctr; 
c ,nd?  ( *5* ) 

END  ?  (*4*J 

copy-to-roil-cn (curptr* . nxt* . 

tv-cn-ptr j ; 

tv-aispose-otr  :=  curptr*. nxt; 
curptr*. nxt  :=  curptr*. nxt*. nxt; 
DlSPliStU  cv-aispose-ptr ) ; 
end;  (*i.b*) 
end;  (*3.5*) 
end;  (*3*j 

i*cut  out  clumpy  record  IE  it  exists*; 

IF  curptr*,aa-id, trans-site, init-site  =  rx'  THeh 
do-array  laonur.u  *.  tv-ptr  :  =  curptr*. nxt; 

ENO ;  (  *2* ) 

END ;  (*proc  rollbacK-tv*) 


BEGIN  (*proc  rollDac**) 
roll-cn-ptr  :=  nil? 
f irst-roi-tlg  :=  true; 
lncnptr  :=  inlist-ptr; 
rolloacK-ptr  ;=  nil; 
i  :=  1/ 

REPEAT  (*until  incnptr  =  ml*) 

(♦load  tne  re  exec  list  witn  the  data  from  the  cn 
pair  rec*) 

IF  not  ls-ln-list  c incnptr*. pair-ptr*,aa- io. 

trans-site, lnlt-site , 


160 


incnptr* .pair _ptr*  . aa_ia. 
trans.site . trans_hurc , 
incnptr* . pair-ptr* . aa.ia. st-nun 
ircnp  cr*.  pair-ptr  *.  aa.ia.  aa-nur- 
reexec-Ptr)  then 

BEGIN  C*IF  1*} 
new (nureptr ) > 

IF  reexec.ptr  =  nil  TnEN 
BEGIN  (*.5*) 
foloreptr  s=  nureptr; 
reexec-ptr  ;=  nureotr; 

ENU  C  ♦  .  5  =»» ) 

ELSE 

BEGIN  (*1*) 

foloreotr  ;  =  reexec_ptr; 
wrilLE  foloreptr*. nxt  <>  nil  Uu 
foloreptr  :=' foloreptr* . nxt: 
foloreptr* ,nxt  :=  nureptr; 
foloreptr' ;=  nureptr; 
end;  (*i*) 

nureptr*. nxt  ;=  nil; 

nureptr* . init.site  :=  incnptr* . pair.otr* . 

aa-id.trans_sice.init.site; 
nureptr* .  trans.nusn  :=  incnptr*  .pair-ptr*  . 

aa-id. trans-site. trans.num; 
nureptr*. st-num  ; = 

incnptr*,Dair_ptr*.aa_id.st_nuin; 
nureptr*. aa-num  ;= 

incnptr* . ?a ir.ptr*. aa.ia. aa-nun ; 
nureotr* .do-io  : = 

incnptr*.oair_ptr*.aa_ia.ao_id; 
lno ;  C  *  IF  1  * ) 

(♦load  tne  rolloac*  list  with  data  from  tre  cn 
pair  rec*) 

IF  not  ls«in_list(incnptr*.pair_ptr*.aa_ia. 

trans.site.mit.site, 
incnptr" .pal r_ptr" .aa.id . 
trans.site.  trans.num, 
Incnptr", pair _ptr*.a a. in . st.num 
incnptr". palr_otr*. aa.io. aa.num 
rolioacK.ptr )  then 

BEGIN  ( * I F  2*) 
new (nurolptr ) ; 

IF  first. roi.f lg  tHl*J 
BEGIN 

rollbacfc.ptr  :  =  nurolptr; 
folrolptr  :=  nuroiotr; 

ENU 

ELSE 

BEGIN  CM*) 

folrolptr* .nxt  :=  nurolptr; 
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foirolptr  :*  nurolptr 
end;  (*i*) 

first. roi.flq  :=  false; 
nurolptr*. nxt  :*  nil? 

nurolptr*. inlt-slte  :  =  incnptr*. pair-Ptr" . 

aa. la. trans.5ite.ini t. site ; 

nuro  lptr* . trans-num  :=  inchptr* . cair-ptr * . 

aa.io. trans-site. trans.num; 
nurolptr".  st.num  :  =  inchptr*. cair-ptr*. ea.ia. 

st.num;’ 

nurolptr* .aa.num  :*  incnptr*. cair-Dtr*.aa.ic. 

aa.num; 

nurolptr*. do. la  :=  inchPtr*. oair-ptr*. a*. id. 

do-ia; 

end;  (♦IF  2*) 

(♦load  the  rollback  list  with  data  from 
the  ch  rec*) 

IF  NOT  is.in-list{incnptr".aa. Id. trans-site. 

init.site, 

lrcnptr*.da.ia.trans.site. 
tr ahs.num , 

incnptr * .aa.i a . st.num , 
incnptr* .aa.i a. aa.num , 
roiiDac<«ptr )  TnE.N 

BEGIN  (*IF  3^) 

Ntwinurolptr) ; 

It  t irst.rol.f lg  IntN 
BEGIN 

rolloaoc-ptr  :  =  nurolptr; 
foirolptr  :=  nurolptr; 

END 

ELSE 

BEGIN  (*1*J 

foirolptr". nxt  :=  nurolptr; 
foirolptr';*  nurolotr 
end;  (♦!*) 
f irst.rol.f lg  ;*  taise; 
nurolptr ". nxt  :=  nii; 
nurolptr*. lnit-site  ;=  inchptr*. 

aa.ia. trans-site, ini t.site; 
nurolptr* . trans-num  ;=  incnptr*. 

aa. id. trans. site, trans-num; 
nurolptr* . st-num  :=  incnptr* . aa.ia. st.num; 
nurolptr* .aa.num  ;*  incnptr* .aa. id. aa.num; 
nurolptr*. do-ia  ;  =  incnptr*. aa. id. do-id; 

end;  (♦!?  'i ♦  ) 
incnptr  :*  incnptr". nxt; 
until  incnptr  =  nil; 
currol  :=  rolloacic-ptr ; 

RtPfcAT  (♦UNTIL  currol  =  nil*) 

otcaaflg  :=  false; 
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ofctvflg  :=  false; 
isatv  ;=  true; 

(*IF  tnis  atomic  action  is  not  from  this  site,  rac<jde 
tne  roll-  oacx  msg  and  send  It  to  cne  init  site 
of  the  aa  ao  not  roll  it  or  any  temp  vers 
oactc  at  tnis  site  at  tnis  time  otneraise,  ruiicncx.  tne 
aa  and  tne  tv*) 

rolibacxc.aa(currol* . init.sice, 

'currol* , trans-num , 
currol* . st.num , 
currol* . aa-num , 
oxaaf lg, isatv) ; 

C*  purge  the  system  of  this  aa's  ch's  *) 
rollbacK.ch(curro.L*.init-site,  currol*. trans.num, 

currol* , s t-num ,  currol* . aa.nux ,  false); 

(*lf  the  atomic  action  most  ii«ely  createu  a  temD  ver, 
tnen  roll  it  bactc*) 

IF  isatv  THEN 

roll back. t v (currol*. init. site, 
currol*  •  trans-nuir. , 
currol*. st.num, 
currol* « aa-num, 
currol* .ao.lo, 
o<tvf ig) ; 

(♦reset  s  value  and  release  tne  a.o.  loc<  if  oresent*) 
(*  IF  OKtVflg  THEN 
BEGIN 

set.s (currol *, do. id) ; 

IF  do.array[currol*,do.ioj *,s.cnt  < 

ao.array [currol*. do. la j  *.n.cnt  THE.* 
re lease. ioc< (cur rol* . ao-id) ; 

End ;  *) 

(*It  both  aa  and  tv  *ere  roiled  cacKea ,  continue*) 

IF  oxaafig  ana  oictvtlg  tnen 
currol  :=  currol*. nxt 

(*Tnen  nftITE  an  error  earning  and  tnen  continue*) 

ELSE 

BEGIN 

wKITELN ( audit  , 

'attempt  to  roloacK  an  aa,tv  tnat  a  as  not  there') 
w KITE ln (audit, currol*, ini t-site  :  4 , 

'currol* .trans.num  ;  4, 
currol1 , st. num  :  4, currol*. aa-num  :  4, 
currol1, do-id  :  4); 
currol  :=  currol*. nxt 
end; 

until  currol  =  nil; 

1  :  IF  rollbac<-ptr  <>  nil  then 
BEGIN 
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re. ptr  :=  roiiDack.ptr ; 
ok-flg  :=  true; 

rolioack-ptr  s-  roiioack.ptr*.nxt; 

END 

ELSE 

Ok.flg  ;=  false; 

IE  OK.f lq  THEN 
BEGIN 

(♦dispose (re.ptr ) ;  *) 
goto  l; 

END; 

end;  (*proc  rolio act*) 


PROCEDURE  restore. sr  crei.ptr  :  ptr.cn); 

(*  Tnls  procedure  will  restore  senallzaole  execution  at  tne 
local  data  object.  It  receives  as  input  a  list  ot 
conflict  nlstory  pairs  wnlcn  are  all  involved  m  cycles 
and  outputs  a  list  of  aa's  #hicn  must  be  reexecutea 
linearly.  *) 


VAR 

rollback. ptr ,  roll.cn. ptr  ;  ptr.cn; 
bEGIN 

.iKlTuL^caudit,  'restore,  sr  is  restoring  sr'); 

(«  produce  tne  list  of  aa's  to  oe  rolled  oack  *j 
determine. rolioack  (rel.ptr,  rolloack.ptr ) ; 

(♦  roll  tnose  temp  versions  back,  and  ail  related  ones  *) 
rollback  irolloack.ptr ,  roli.cn.ptr); 

(*  upoate  all  conflict  nistories  to  reflect  tne  roiiea 
oack  tv's  *) 

(*  rollback.cn  ( roll-cn.otr ,  'y',  o,  false);  *) 


END; 


PROCEDURE  mark-temp.ver  s ion  (status  :  cnar; 

mark.aa.Dtr  :  ptr.aa; 
mark.st.ptr  ;  otr.strans; 
mark-tr-btr  ;  ptr-trans); 


(♦tnis  marks  tne  most  recently  created  temp  ver  as  e t n e r 
t(r)  or  t  ( * ) .  if  tne  temp  ver  is’marked  t(r),  tne  suo 


trans  ana  trans  wnicn  createa  tne  temo  ver  have  neir  ts.r) 
quantity  fields  adjusted  as  required*) 

VAR 

tviptr  :  ptr-tv; 
readf lq  :  boolean; 
ptrtotv  :  ptr-tv; 
donum  ;  integer; 

BEG  IN  (*mar<-temp-ver s ion* ) 

f lnd-tv(marK-aa.ptr* .aa.ia . trans-site . init-s ite, 
marx-aa.ptr * . a a. id. trans-site. trans -nun, 
marx.aa.pcr  * . aa-id,st-num, 
marK-aa«ptr  * .  aa-ia .  aa-nun. , 
marK-aa-ptr * . aa-la , ao-ia , 
ptrtotv); 

^RITELN (audit ,  'roar K-temp-ver  roarxing  s'); 
ARIT£(audit,marK-aa-ptr*.aa.id.trans.sit9.init.site  :  4, 
mar<-aa-ptr* .aa-ia.  trar.s-s  ite.  trans-nun  : 
mar<-aa-ptrk«aa-id.st.num  :  4, 
marx-aa-ptr* .aa.id.aa-nu'.i  : 

.nar<-aa.ptr* . aa-ia , ao-ia  :  4); 
*RITELN(audit)  ; 
case  status  ot 

' r '  1  ptrtotv-.stat-tid  :=  'r '; 

'w'  s  ctrtotv* , stat.f id  := 

'z'  :  BEGIN  (*case  z*) 

readtig  ;  =  true; 

donum  :=  mar.x.aa-ptr* .aa.ia.do-ia; 
tviptr  :  =  do-array taonum) *. tv-ptr; 

It  tviptr  =  nii  i.iEn 
aEGlN 

wKITELN(audit, 'Tar<  temp  tried  tu  mar*  a') 
*RiXtLN(audit#  'temp  #hicn  *»as  not  tnere'); 
AKiXEbN (audit , mar x-aa.ptr * . aa-ia . 

trans-site. ini t-site, 
roarx-aa-Ptr* .aa.id , trans. site. 

trans-num , 

mar x-aa-pt r * . aa.id . s t.num , 
marx.aa-ptr * . aa-id.aa-num , 
roanc.aa-ptr*.aa.id,ao_ia) ; 

END 

ELSE 

BEGIN 

* h i l £  tviptr  <>  nil  du 
BEGIN  (**HIuE*) 

IF  (tviptr*. aa.id . r-rf-r ig  =  'r') 
"and  (readtig)  then 
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tviptr** . stat.fia  :=  'r' 

ELSE 

IF  (tvlDtr**.aa.id.r-w-tig  - 

'r'J  and 

(NO*.  read t la)  IrEN 
tvlptr* , stat-f la  := 

ELSE 

If  ctvlptr*.ad«.ia«r-w-tia 

'  w  * )  and 

Creadf lq j  then 
oEGIN 

tviptr * . stat.t id  : =  'r' 
readtig  :=  false 
END 
EliSe. 

if  (tvlptr* .aa.ia. 

r.fr.flg  -  *w*)  and 
(NOT  reaaflqj  1'he.N 
tvlptr* . stat-flG  : = 
'  *  '  ; 

tviptr  :=  tvlptr*.nxt; 

END;  (**rilLe.*  j 

end;  (*else*) 

End;  (*case  2*) 
end;  c*case*) 

IF  Dtrtotv*'#stat.f  Id  =  'r'  TnEu 
BEGIN  («IF  IS  r*) 

martc-st-ptr*  .aa-tr-qty  s  = 

marK-st.ptr‘*.aa.tr-qty  +  1 
IF  marK-st.ptr* .aa.tr-qty  > 

rnarK.st«ptr'*.aa.aty  I n E N 

BEGIN 

marK.st.ptr* .aa-tr-qty  ; = 

marK.st.ptr*.aa_qty; 

wriTELn (audit,  'in  inarnteir.D '  the  aatr  aty') 
WRITELN (audit, 'exceeded  tne  aa  aty'); 

END; 

IF  marK-st.ptr".aa-tr-qty  = 

mar<-st.ptr* .aa-aty  Then 
maric-tr.ptr" ,st.tr-qty  ;  = 

marK-tr-ptr" . st.tr.qty  +  l 
IF  martc-tr-ptr* ,  st-tr-qty  > 

itarx-tr-ptr* . st-aty  Then 

BEGIN 

marK-tr-ptr*.st-tr-qty  : = 

marK.tr. ptr*.st-oty; 

aftITELN (auait ,' in  mar Ktemc ' tne  sttr  qty'j 
«rilT£LN( auait, 'exceeded  tne  st  qty'); 

ENO; 

END;  (*IF  is  r») 

;  (*tnarKtemp  version*) 
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procedure  enter. Iock. queue  Center- aa.Dtr  : 

(*  tnis  enters  an  atomic  action  into  tne  Iock  queue  at  a 
data  oojecc  wnen  the  atomic  action  rinds  tne 
data  ODject  loc<ed  *) 

VAR 

nulocptr ,tvlptr  s  ptr.locK.q; 
enter. st. ptr  :  ptr.strans; 
enter. tr-ptr  :  ptr-trans; 
donum  j  integer; 

begin  (tenter  ioc<  queue*) 

(*oulld  and  load  tne  new  iock  queue  memoer  data*) 
Nt*(nulocptr) ? 
nulocptr“,nxt  :  =  nil; 

nu locpt r*. aa.id.  trans.slte,  mi t.site  ;= 

enter.aa.ptr * .aa.id. trans-site . inlt.s l te; 
nulocptr *.aa.id^ trans.slte. trans.num  :  = 

enter.da.ptr*,aa.id. trans. site, trans.num; 
nulocptr**. aa. id. st-num  :=  enter.aa.ptr *, aa.id . st.num ; 
nulocptr*. aa. id. aa-num  :=  enter.aa.ptr*.aa.id.aa.nun,; 
nulocptr*. aa.ia, r-*.riq  enter.aa.ptr*. aa.ia.r.*.ng 
nulocptr*. aa.id.ao.ld  ;=  enter.aaJ.ptr“.aa.ia.ao.ia; 
nulocptr*. aa.ia.cn.seq  :=  enter.aa.ptr * , aa.id . cn.seq ; 
nulocptr*. aa.ia. metric  :=  enter.da.ptr*,a<a.iu, metric; 
writ el n (audit, 'entering  tnis  aa  in  tne  lock  queue'); 
*RITELN (audit , enter.aa.ptr * .aa.id , 
trans. site. init. sice  :  4. 

enter. aa.ptr*.aa. id. trans. site. trans.num  :  4, 

enter- aa.Dtr*, aa-ia, st.num  :  4. 
enter.aa.ptr*. aa.ia. aa.num  ;  4); 
donum  :  =  enter.aa.ptr *. aa.id . ao-ia ; 

(♦set  tne  atomic  action  Iock  tiela  as  locKea  out*) 
enter. aa.ptr* . in.iocKq. fig  ;=  true;' 

(♦enter  tne  atomic  action  into  the  iocK  queue*) 

IF  do.array (gonumj * , iocK-q-ptr  =  nil  Then 
do.array (donum; *, iocK.q.ptr  nulocptr 
ELSE 

BEGIN  ( *ELSE* ) 

tvlptr  :=  do-array CdonumJ *.locK.a. ptr; 
while  tvlotr*.nxt  <>  nil  DO 
tvlptr  :*  tvlptr*. nxt; 
tvlptr*. nxt  ;=  nulocptr; 

End ;  ( *elbe* ) 

END;  (*enter  Iock  queue*) 


PROCEDURE  sort.cn  C inlistptr , sortlistptr  :  ptr.cn; 

ind. Insert  ;  ooolean; 

VAR  sort. insert  :  oooiean); 

C*tnis  Inserts  a  llnxed  list  of  conflict  histories  pointed 
to  by  inlistptr  into  a  sorted  list  pointed  to  oy 
sortlistptr  sorted  order.  Duplicate  memoers  are  not 
inserted  in  the  list.  If  the  ind. insert  flag  is  on,  the 
sort-insert  flay  is  true  if  an  insert  occurea.  a  neaaer 
ana  a  trailer  are  used  in  tne  sorted  list  for  ease 
of  insert.*) 

VAR 

scn.cn. ptr.baseptr, Ieadptr, nucnptr  sptr.cn; 
nupairptr  ;  ptr.cn.pair? 
aupfig  {boolean; 


) 


PROCEDURE  determine-dup  C det.aa.ptr ,  ieadptr  ;  otr.cn; 

VAR  dupfig  {boolean); 

(*  this  sets  dupfig  true  if  tne  conf  hist  pointea  to  cy  tne 
t»o  Input  pointers  are  duplicates  *) 

dEGIN  (*deternine  dup*) 

IF  (aet.aa.ptr*. aa.id. trans-site, ini t.site  = 
leadotr*. aa.id. trans-site. ini t.site)  and 
(det.aa.ptr* i aa.id. trans.site  .trans.nurr  = 
ieaaptr* .aa.id, trans.site .trans.num)  a.nD 
(det-aa.ptr*.aa-id. st-num  = 
ieaaptr*. aa.id. st. num)  and 
(oet-aa.ptr* , aa-ia. aa-num  = 

Ieadptr*. aa.id, aa-num)  and 
(det.aa.ptr* . pa ir-ptr* .aa.id . trans.site. ini t.site  = 
leadptr*.palr-ptr*.aa-id,trans-site.init-site)  a* *') 
(det.aa.ptr* , pair.ptr * .aa.id, trans.site . trans-nun  = 
Ieadptr*. pair-Dtr*. a a. id. trans.site. trans.num)  AnC 
(det.aa.ptr*. pair.ptr*. aa.id, st.num  = 
ieaaptr*. pair.ptr*. a a- id, st. num)  and 
(det.aa.ptr*. pair.ptr* , aa.id .aa.num  = 
leadptr*,pa ir-ptr* , aa-id.aa.num)  then 
dupflo  ;a  true; 

END;  (*determine  duD*) 


begin  (*sort  cn*) 

scn.cn.ptr  :=  Inlistptr; 
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#h I L£  scn.cn.ptr  <>  nil  uU 
BEGIN  (*r2*) 

paseptr  :=  sortlistptr; 
leadptr  :  =  oaseptr* .nxt; 

•trtILE  leadptr*«aa-id. trans.site. init.si te  < 

scn.cn.ptr ".aa.ia.  trans.site.init.site  uo 
BEGIN  (*r3*)' 

oaseptr  :=  leaaptr; 
leadptr  :  =  leaaptr*. nxt; 
end;  (*rJ*) 

IF  leadptr* .aa.id. trans.site . mit. site  = 

scn.cn.ptr*. aa.id. trans-site, init.si te  then 
IF  NuICschicn-ptr*,aa-id.trans.site.trans-num  <. 

‘  leadptr*.  a a. ia. trans-site. trans.n  urn  j  a  hen 
«HiLE(leadptr*.aa.ld , trans-site. init.si te 
's  scn.cn.ptr*. aa.id, trans.site. 

init.sitej  and 

i sen. cn.ptr* .aa.ia. trans.site. 

trans.nu.ii  > 

leadptr*. aa.ia. traps. site.trans.nU'T.j  p  j 
BEGIN  (*r4*j 

baseptr  :=  leadptr; 
leadptr  :  =  leaaptr*. nxt; 
end;  C*r4* J 
dupflg  :=  false; 

aetermine.aupt leadptr , scn.cn.ptr , dupflg) ; 

If  ngt  duptig'rHEN 
BEGIN  c*r5*) 

Nt*cnucnptr) ; 

NE*inupairptr) ; 

nucnptr* .pair.ptr  ;=  nupairptr; 
nucnptr*. nxt  :=  oaseptr" .nxt; 
paseptr*.nxt  :=  nucnptr; 
nupairptr*,aa.id  ;= 

sch-ch-ctr*. pair. otr". aa.ia; 
nupairptr* .Tietric. sum  ;  = 

scn-cn-otr*. pair.ptr* .metric-sum; 
nucnptr" .aa.ia  ;=  scn.cn.ptr* .aa.id; 

IF  ind.insert  then 

sort. insert  ;=  true; 
end;  C*r5*) 

scn.cn.ptr  scn.cn.ptr* .nxt; 
end;  (*r2*j 
end;  (*sort  ch*) 


(**♦*********************  ***************  ***********  *««*****) 


PROCEDURE  add. and. detect  (ado.cn.ptr  ;  ptr.cn; 

VAR  *as-non.sr  :  oooiean; 
vah  roil.cn.ptr  :  ptr.cn;; 


C*  This  adas  a  neaaer  and  a  trailer  to  tne  input  conflict 
nlstory  list  and  calls  tne  detect  non-sr  proc.  It  non-sr 
is  detectea  the  flag  "was.non.sr "  is  set  to  true,  ihe 
neaaer  and  trailer  are  stripped  otf  prior  to  return  *j 


VAR 

out.ch.ptr,  tviptr,  ch-dispose-ptr  :  ptr-cn; 
pout.cn.ptr  :  ptr.ch.pair; 

BEGIN 

*a s. non-sr  : =  false; 

(*  add  neader  and  trailer  *) 
aaa.n.and.t  (add.cn.ptr); 

(*  see  it  non-sr  exists  *) 

detect. non-sr  (aoa.cn.ptr,  *as.non_sr,  roil.cn. ptr ) ; 

(*  scrip  oft  neaaer  ana  trailer  *; 
tviptr  :*  add.cn.ptr; 

WHILE  tviptr*. nxt*, aa. id. trans-site. lnlt.site  <>  'A'  uu 
tviptr  :  =  tviptr*. nxt; 
cn.dispose.ptr  :=  tviptr*. nxt; 
tviptr*. nxt  ;=  nil; 
it  cn.dispose.ptr  <>  nil  TntN 
uiSPGSECcn- dispose. ptr ) ; 
cn.aispose.ptr  :  =  add.cn.ptr? 
add.cn.ptr  ja  add.cn.ptr* , nxt; 

DISPOSE C cn.dispose.ptr ) ; 

END ; 


procedure  sort.tr.cn  (sort. ptr ,xerge-ptr  :  ptr.cn? 

VAR  out-cn.pcr  :  ptr.cn; 

VAR  insert. fig  ;  ooolean); 

(*  tnis  sorts  tne  list  of  conflict  nistorles  pointed  to  py 
sort.ptr  and  merges  into  tne  sorted  list  tne  list 
pointed  to  Dy  merge. ptr,  no  duplicates  are  aiioweo  m 
the  final  sorted  list  pointed  to  oy ’ out.cn.ptr .  if  any 
inserts  to  the  final  list  came  from  tne  merge  list, 
tne  insert. fig  is  set  to  true,*; 


VAR 

pout.cn. ptr  :  otr.cn. pair; 
sort. Insert  :  ooolean; 
tviptr  ;  ptr-cn; 


BEGIN  (*sort  tr  cn*j 


insert. fig 


false; 


(*add  a  neaaer  ana  trailer  ch  recora  to  tne  outputxist* j 
out.ch.ptr  ;=  nil; 
aaa.n.and.t*  Cout.cn.ptr ) ; 

IF  merge. ptr  *  nil  then 

sort-cn t  sort.pt r , out.ch.ptr* false, sort. insert) 

ELSE 

IF  sort.ptr  *  nil  then 

BEGIN  (*1*) 

insert-fig  :=  TRUE; 

sort-cn (werge.p tr ,out.cn.Dtr , false , sort.insert ) ; 
END  (*l*) 

ELSE  t*neicner  pointer  is  ml*) 

BEGIN  1*2*) 

sort-cn C  sort.ptr , out.cn.pt r , false, sort. insert); 
sort.cnfmerge.ptr ,ouc-cn.ptr , true, sort- ins ere ) ; 
If  sort-insert  Then 
insert. fig  ;=  true; 
end;  ( *2* ) 

(*  strip  off  header  and  trailer  from  output  list*) 
tvlptr  :=  out-cn.ptr; 

while  tvlptr*. nxt*.aa.ia. trans-site. init. site  <>  'A'  uo 
tvlptr  ;=  tvlptr*. nxt? 
tvlptr*, nxt  :=  nil;' 
out.cn.ptr  out-cn.ptr*. nxt; 

end;  (*sort  tr  cn*j 


procedure  resolve. glooal.sr  Cptrtotr  :  otr.trans; 

var  res.cn. ptr  ;  ptr.cn; 

VmR  was. non. sr  :  ooolean; 
var  roll. cn. ptr  ;  ptr.cn); 

(*tnis  resolves  glooal  non-seriailzaDiiity  by  aetectiny  non- 
serializapility  on' tne  concatenation  of  conflict  histories 
for  the  input  transaction,  ine  iterative  process  of 
concatenation  of' conflict  Histories  and  detection  of 
non-ser  insures  tnat  the  detection  process  and  tne 
resultant  resolution  process  are  exhaustive  for  a  given 
transaction,  roll-cn.ptr  points  to  tne  minimal  conflict 
nistory  to  roll  oacx*) 

VAR 

tr.array  t  array t l ., *9]  of  integer? 

mt. array. fig, found. a. one, me. cr-ch, insert. tig  :  ccolean; 

1  :  integer; 


tvlptr  :  ptr.trans; 

sortptr,mergeptr,tempptr,nxt-trcn_Dtr  :  Dtr.cn; 


(*  procs  for  res  gio  sr  *) 


PROCEDURE  set. array  [set.ch.ptr  :  ptr.ch); 


(«  this  puts  a  i  into  eacn  index  slot  wnicn  is  not  a  1  or  a 
2  for  each  transaction  found  in  tne  input  list  ot 
conflict  histories.  The  inaex  is  tne  trans-num  rieia 
in  tne  conf  hist*} 


VAR 

tvlptr  :  ptr-cn; 

BEGIN  (*set  array*) 

tvlptr  s=  set-cn.ptr? 
ahile  tvlptr  <>  nil  DO 
BEGIN  1*1*) 

If  tr-array  l tvlptr * .aa.ia. trans-site , 

trans-num]  =  0  then 

tr.array  C  tvlptr*'.  aa.ia.  trans-site. 

trans-num]  :=  i; 

IF  tr.array [tvlptr* .pa ir-ptr* .aa.ia. 

trans.sitei trans.nuhj  *  u  Inc  . 
tr.array  i  tvlptr  "“.pair-ptr".  aa.ia. 

trans.site",  trans.numj  ;=  l; 
tvlptr  :s  tvlptr*. nxt; 
end;  C*l*) 

End;  C*set  array*] 


procedure  find. a. one  (VAR  nxt.trch.ptr  :  ptr.cn; 

VAR  found-a-one , mt.tr.cn  ;  boolean}; 


(*this  attempts  to  find  a  i  in  tne  tr.array.  if  a  1  is 
'  found,  a  pointer  to  tne  transaction's  conflict  nistory 
with  tne  same  trans-num  as  tne  inaex  in  the  array  is 
returned, tne  found. a. one  flag  is  set  to  true  ana  ir  tne 
transaction  conflict  is  not  empty  the  mt.tr.cn  fiaa  is 
false.  It  no  1  is  found  the  found.a.one  is  returnea  raise. 
It  a  1  is  found  but  tne  transaction's  conflict  is  empty, 
tne  mt-tr.cn  flag  is  set  to  true*) 


VAR 

ldx , i  t  integer; 
tvlptr  :  ptr.trans; 

begin  (*tind  a  one*) 
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i  :=  l; 

mt.tr.cn  s*  false? 
found. a. one  :=  false; 
nxt.trcn.ptr  :  =  mi; 

*hIL£  nut  (i  >  99j  du 

IF  tr.arraytiJ  =  l  then 
btGIN  (*1*) 

found- a.one  :*  true; 
tr. array Lli  ;=  2? 

Idx  :=  i; 

l  :=ioo 

END 

ELSE 

1  :*  1  ♦  l? 

IF  found. a.one  THEN 
BEGIN  1*2*) 

tvlptr  ;=  trans.ptr; 

IF  tvlptr  *  nil  IhtN 
*RIT£LN  (audit  r 

''error, find  a  l  found  mt  trans  list") 

ELSE 

while  tvlptr  <>  nil  du 

BEGIN 

IF  tvlotr*. trans-site. 

trans.nuw  =  iax  then 
IF  tvlptr* . trans-cn-ptr  <>  nil  1'nEN 
nxt.trcn.ptr  ; a  tvlptr*. 

trans. cn.ptr ? 

tvlptr  • *  tvlptr*. nxt? 

ENO? 

END? 

IF  nxt.trcn.ptr  a  nil  then 
mt.tr.cn  :a  true? 
end?  (*flnd  a  one*) 


(*  main  loop  res  glo  sr  *) 

BEGIN 

«RITE(audit, 'entering  resolve  giocal  sr  for  trans  a  ' )  ‘ 
*RITE(audit,ptrtotr*. trans. site, init. site  :  3  ); 
*RIT£L.\(audit,otrtotr*.  trans. site,  trans.num  ;  3  ); 

FOR  i  :a  1  TO  29  DC 
tr.arrayii)  :=  o? 
mt.array.flg  :*  false? 
was.non.sr  :=  false; 

tr.array tptrtotr*. trans. site. trans. num)  :=  2? 
set.array( res. cn.ptr ) ; 

«HILE  (NOT  mt.array.flg)  and  cnut  was.non.sr)  dl 
BEGIN  (*1*) 

found. a. one  :  =  false; 
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mt-tr.cn  : =  true; 

f lnd.a.oneCnxt.trch.ptr , f ound-a.one , mt-tr.cn ) ; 

IF  (found.a.one)  and  (nui  mt.tr.cn)  mt,* 

BEGIN  (*2*) 

insert. rig  :  =  false; 

sort.tr.cn ( res. ch.ptr , nxt-trcn.pt r , tempptr , 
lnsert-flg)? 

Ptrtotr*. trans.cn. ptr  :=  tempptr; 
res.cn.ptr  s=  tempptr; 
set.arrayc res.cn.ptr ) ; 

IF  insert. fig  I nLa 
begin 

«RITt (audit , 'resolve  oioeai  is  caixino', 

'  detect.non.sr  tor  =  ');’ 

••RITE  (aud  it, ptrtotr*. trans. site. 

init-site  :  *  ); 

*KiT£(aua it, Ptrtotr*. tr an s. site. 

trans.run  ;  4  ); 

*  R I T  E  L  N  (audit ) ; 

•as.non.sr  :  =  taise; 
add.ana.detect  (res.cn.ptr ,  was.r.on.sr , 
'roli.cn.ptr) 

end; 

end;  i*2*) 

IF  NCI  touno.a.one  Then 
mt.array.flg  ;=  true; 
end;  (*1*j 

end;  (*resolve  global  sr*) 


PROCEDURE  detect. global. sr  (global. fig  :  boolean; 

v Ak  commit-flg  :  Boolean; 
vak  tr-ptr  ;  otr.trans; 
locxq-cn-ptr  ;  ptr.cn); 

(*  mis  procedure  will  determine  lr  tne  transaction  conflict 
histories  presently  Indicate  serializable  activity,  if 
so,  tne  commit-flg  will  return  true;  otnerwise,  false.  *) 

VAR 

dummy,  non.sr  :  boolean? 
roli.cn.ptr  :  ptr.cn? 

BEGIN 

rfhllELN( audit, 'entering  detect-glooai.sr ' ) ; 

IF  global. fig  *  false  THEN 
BEGIN 

sort.tr.cn  (tr-ptr*.  trar.s.cn. ptr ,  iocxg.cn. ptr , 
tr-ptr*. trans.cn. ptr,  dummy); 


aaa-and.detect  (tr.ptr*. trans-cn.ptr ,  ncn.sr, 

roll. ch. ptr ) ; 

If  non.sr  THEN 

restore. sr  ( roll-cn-ptr ) 

ELSE 

resoive.glooal.sr  ctr-Ptr,  tr.ptr* . trans.cn.ptr , 

'non.sr,  ro Il.ch.ocr j ; 

IF  non.sr  ThEN 

restore. sr  Croll-cn.ptr ) ; 

END 

ELSE 

BEGIN 

sort-tr.ch  (tr.ptr*. trans-cn.ptr,  loc<q-cn.ptr , 
‘tr.ptr*. trans-cn.ptr ,  dummy); 
add.and. detect  ( tr.ptr * . trans-cn.ptr ,  non.sr, 

roii.ch.ptr ) : 

IF  non.sr  then 

restore. sr  Croll.cn.ptr ) 

ELSE 

resoive.glooal.sr  (tr.ptr,  tr.ptr* . trans-cn.ptr , 

‘non.sr,  roll.cn. per ) : 

IF  non.sr  THEN 

restore. sr  Croll.cn.ptr) 

ELSE 

commit-flg  :  =  true 

END 

END; 


PROCEDURE  detect. deadlocK  Caa.ptr  ;  ptr.aa; 

st-ptr  ;  ptr.strans; 
tr.ptr  :  Ptr.trans); 


(*  this  procedure  will  detect  ano,  it  necessary,  resolve  tne 
deadlocK  whicn  can  occur  wnen  atomic  actions  are  placed 
in  1 ock  queues  *) 


VAR 

oase.tv.ptr,  tatce.tv.ptr,  faKe.i lst.ptr  :  per. tv; 
faxe.end.ptr  :  ptr.tv; 

locKq.cn. ptr,  temp.cn.ptr,  st.cn. ptr  ;  ptr.cn; 
temp.locK.ptr  :  ptr.locK.q; 
global. tig,  commit-flg  :  boolean; 
donum  :  integer; 


BEGIN 

wfillELN  (audit,  'cnecKing  deaalocK  tor  aa 
WRITE  (audit, aa. ptr* .aa.id 

, trans. site. init. site  ; 


2) ; 


Iw'  . 


WRITE  (auoit , aa-ptr" .aa.ia 

.trahs_site.trans.num  :  2 ) ; 

WRITE  (audit , aa.ptr*  ,aa_la.st_nuiri  :  2); 

WRITE  (audit, aa.ptr*  .aa.ia .aa.num  :  2); 

WRITELN (audit } ; 

(*  construct  "fane"  temp  versions  from  the  aa's  in  tne 
lock  queueso  that  a  complete  conflict  history 
can  be  ouilt  *) 
fane.list.ptr  ;=  nil; 
donum  :=  aa.ptr*. aa.id.ao.la; 
temp.iocic.ptr  :  =  ao.array tdonumj * , locK.q.ptr ; 
ahILE  temp.locx.ptr  <>  nil  DC 
BEGIN 

new  ( ta<e_tv_ptr ) ; 

*ITH  temp. lock.ptr*  .  aa_id  DL» 

BEGIN 

f ane.tv.ptr* .aa.id . trans.site. lnit.site  : = 
trans.site .  imt.site; 

f  atce.tv.ptr*.  aa.ia.  trans.site.  t  ran  s-num  :  = 
trans.site.  t  ran  s.r.um; 
fane. tv.ptr*. aa.ia. st.num  j  =  st.num'; 
fajce.tv.ptr*. aa.ia. aa.num  :=  aa.num; 
fa<e.tv.ptr",aa.id.r.rf.f lg  : =  r.w.flo; 
fane.tv.ptr * .aa-ia.ao-ia  :=  do-la; 
fane-tv-ptr*. aa.ia. cn-seq  s=  ch.sea; 
t aice.tv.ptr*. aa.ia. metric  :=  metric; 
fa<e.tv.ptr*.tv.cn.ptr  :=  nil; 
irfRlTELN(audit , 'creating' fane  tv  for:'); 
*RIT£(audit, trans.site. mit.site  :  2, 

'  trans.site. trans.num  ;  i, 
st.num  :  2, 
aa.num  :  2, 
do. id  :  2); 

WRI TELN (audit ) ; 

END ;  (*  witn  *) 

IF  fane-list. ptr  =  nil  THcN 
BEGIN 

f ane.iist.ptr  : =  fane.tv.ptr; 
fake.eno.ptr  ; =  fane.tv.ptr 

END 

ELSE 

cEGTN 

faKe.ena.ptr* ,nxt  :=  tane.tv.ptr; 
fane. end. ptr  :=  fane.tv.ptr 
END;  ’ 

temp.locK.ptr  :=  temp_locn.ptr*,nxt; 
end;  (*  wnile 
fatce.tv_ptr*.nxt  :=  nil; 


(*  hang  the  fane  tv  s  at  the  tv 


base.tv.ptr  :=  do.array  (donum) * , tv.ptr ; 

IF  ao.array (donum) *. tv.ptr  =  nil  THt* 

ao.array  laonurn)  * .  tv.ptr  :=  £ ake.list.ptr 
ELSfc.  SEGIw 

*rtiLt  case. tv.ptr* . nxt  <>  nil  uO 
base.tv.pt r  base. tv.pt r*. nxt; 

base. tv. per*. nxt  :=  take. list. ptr; 

END; 

(*  If  conflicts  exists  construct  ana  save  conflict 
nistory  *) 

locKp.cn. ptr  s*  nil; 

IF  detect. conflict  (donum)  i>£* 

aetro-contlicts  (donum,  locKd.cn. ptr ) ; 
cooy.cn  ( locxq.cn. ptr ,  temo.cn.ptr ) ; 
temp. lock. ptr  :=  do-array (donum) *. lock.q. ptr; 

*riXL£  temp. lock. ptr * , nxt  <>  nil  Du 

temp.locK.pcr  :  = temp. lock. per*, nxt; 
temp. Iock. ptr* . lock-cn.ptr  : =  temo.cn.ptr; 

(*  remove  tne  fa<e  tv  from  tne  tv  list  *) 

IF  oase. tv.ptr  =  nil  then 

do.array  (donum) *. tv.ptr  i-  nil 
ELSE 

oase.tv.ptr*.nxt  :=  nil; 

(*  ado  tne  current  aa  st's  ch  to  tne  iockq.cn  *j 
copy.cn  (st.ptr*.st.cn.ptr,  st.cn. ptr); 

IF  lockq.cn.ptr ' <>  nil  ihEN 
BEGIN 

temo. cn.ptr  :=  loc<q-cn.ptr ; 

*hIL£  temp.cn. Ptr*. nxt  <>  r.ll  DO 

temp.cn.ptr  ; =  temp.cn.ptr~.nxt; 

temp. cn. ptr*. nxt  ;=  st.cn. ptr* 

END 

ELSE 

iocKq.cn. ptr  ; =  st-cn.ptr; 

(*  detect  and  resolve  any  deadlock  *) 

IF  locKq.cn. ptr  <>  nil  The* 

BEGIN 

glooa)  .tig  :=  false; 

detect. global. sr  (glooai.tlg,  commit. flu,  tr- 

locKq.cn. otr ) 

END 

end; 


PROCEDURE  update. finisneo.qty  (tin. sc. ptr  ;  ptr.strans 


fin.tr. ptr  :  ptr.trans); 

(*  This  procedure  is  only  called  #nen  an  atomic  action  is 
finisned  executing  Cat  step  14).  It  *iil  upc-te  toe  ea 
finisned  quantity  at  tne  suctrans  ana  it  the  suctrar.s  is 
finisnea  it  #111  move  tne  subtrans  conf  mstory  to  tne 
trans  and  update  tne  subtrans  finisnea  quantit,.  *) 


VAR 

fin.cn. ptr,  temp.cn. ptr  :  ptr.cn; 

BEGIN 

IF  fin.st.ptr~.aa.qty  =  f in-st.ptr~.aa. tin. qty  ihen 
wRITELN  (audit, 

'ERROR i  step  14  has  more  aa"s  tinisnea 
'tnan  exist'; 

ELSE  BEGIN 

(*  add  1  to  aa  finisned  quantity  *; 
f in.st.ptr~ .aa.f m.qty  :=  tin.st.ptr~ .aa.f m-qty  +  l; 

IF  fin.st.ptr~.aa.qty  =  f in-st-ptr~ .aa.f ln.qty  TnE;* 
BEGIN 

(*  add  1  to  subtrans  finisned  quantity  *j 
f in.tr.ptr~ . st-fln-qty  : = 

fin.tr.ptr~.st_t in.cty  +  l; 

(*  copy  suotrans  cn,  cnen  add  it  to  tne 
trtns'  cn  «) 

copy.cn  c fin.st.ptr~ . st.cn.ptr ,  tin.cn. ptr;; 

IF  f in.tr. ptr“ . trans.cn. ptr  =  nil  Ihtu 
f in.tr.ptr~ . trans.cn.ptr  :  =  fm.cn.ptr 
ELSE  BEGIN 

temp.cn.ptr  : =  fin-tr-ptr~ . trans. cn.ctr ; 
mrilLE  temp.cn.ptr~  ,nxt  o' nil  Du 
temo. ch. ptr  :=  temp.cn. ptr" . nxt ; 
temp. cn. ptr* .nxt  :=  fm.cn.ptr 
END  c*  ELSE  *) 

END  (*  IF  then  *; 


ENO  (*  ELSE  *; 
END; 


PROCEDURE  execute  (VAR  seed  :  unsigned; 

time-delay  ;  integer); 


VAR 

exec. trans. ptr  :  ptr-trans; 
exec. st. ptr  :  ptr.strans; 
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exec.aa.ptr  :  ptr.aa; 
rei.ptr  :  ptr.cn; 
nave.aa,  non.sr  :  boolean; 


nave.aa  :=  taise; 

C*  "randomly"  select  next  atomic  action  to  execute  *) 
select. aa  (nave.aa,  exec-trans.ptr ,  exec.st.Ptr, 
exec.aa.ptr>  seed); 

(*  execution  sequence  *) 

IF  nave-aa  then  begin 

exec. aa. ptr* . step. num  j=  exec.aa.ptr* . step. num  +  l; 

CASE  exec.aa.ptr*. step. num  Ur 

1  :  (*  if  locked,  tnen  time-out, 
else  acquire  lock  *) 

IF  locked  Cexec.aa.ptr*,aa.id,do.id)  then 
time.out  Ctime.aeidy,  exsc.aa.ptr j 
FUSE  ti  E  G I k 

acqulre.locx  (exec.aa.ptr* .  aa.i a.do.ia, 
ex ec.sc.ptr, exec.aa.ptr) ; 
exec.aa.ptr* . step. num  :  =  exec.aa.ptr*. 

step. num  +  i 

CMC;  (*  ELSE  *) 


2  i  (*  remain  here  until  time-out  finisnea  *) 

(*  If  still  locked,  enter  lock  queue, 
else  get  lock  *) 

IF  exec.aa.ptr* , time.vai  <  time.aelay  lht;« 
bEGIw 

l*  continue  to  wait  tor  time-out  toer.q  *) 
"time. outCti me. delay,  exec.aa.ptr) ; 
exec.aa.ptr *. s tep-num  :  =  exec.aa.ptr*. 

step. num  -  1 

END  (♦  IF  *) 

ELSE 

BEGIN 

IF  locked  (exec.aa.ptr* .aa. la . ao. id )  l!iE‘< 
C*  go  to  enterilock.aueue  step  *) 
exec.aa.ptr “ .step. num 

:=’ exec.aa.ptr*. step-num  +  io 

ELSE 

acquire-iock(exec_aa.Dtr*,aa.lo.ao.ia, 
exec.st.ptr , exec.aa.ptr ) 

end;  (*  else  *) 

1  :  (*  remain  nere  until  all  non-local  locks 
are  acquired  *) 


IF  do.array(exec.aa.ptr~.aa.la.ao.iaJ “.icc<-oty 
<>  0  THEN 

exec.aa.ptr *, s tep.num  : =  exec.aa.pcr~. 

step.num  -  i; 


4  :  (*  rest  and  relax  *) 

non.sr  : =  non.sr; 

5  :  BEGIN 

(*  read/update  data  object  *) 
create.cemp.ver  ( exec.aa.ptr ,  exec.st.ptr, 

exec.trans.ptr ) ; 

(*  If  conflict  exists  tnen  invoke  tne  local 
concurrency  controller  *) 

IF  detect-cont lict  (exec.aa.ptr*. aa.id 
.do-id)  THEN 

cons truct.prec.r el  i exec.aa.ptr ~ . aa-iu 
.do. io) 


cLSE 

l*  go  to  set  s  to  zero  step  *) 
exec.aa.ptr ~ . step.num  : = 

exec.aa.ptr~ .  step. nun  +  ■*; 

end; 

6  :  (*  store  tne  numoer  ot  conflicts  this  temp 

version  nas  *) 

set.s  (exec.aa.ptr~.aa.id.do.id) ; 

7  :  (*  tne  local  concurrency  controller  *) 

BEGIN 

detect. non.sr (oo.array  texec-aa-ptr" .  aa.iu. 

do.iuJ  *.cn.ptr’,  non.sr,  rei.ptr); 

IF  non.sr  Then 

restore-sr  (rei.ptr) 

ELSE 

exec.aa.ptr" . step.num  : =  exec.aa.ptr * . 

step.num  +  i 

ENO;  (*  case  7  *) 

8  :  (*  mark  status  as  eitner  t(r)  or  t(»)  *) 

BEGIN 

mar <- temp. vers  Ion ( 'z', exec.aa.ptr, exec.st.ptr, 

exec.trans.ptr ) ; 

( *  qo  to  check  for  release  lock  step  *) 
exec.aa.ptr* . step.num  : =  exec.aa.ptr" . 

step.num  +  i 

end;  (*  case  a  *) 

9  :  (*  mark  status  as  t(w)  ♦) 


lao 


BEGIN 

marx-temp. version  ('*',  exec. aa. per, 
exec-st.ptr,  exec. trans. per ) ; 

C*  go  to  cnecx  for  release  Iock  stec  *j 
exec.aa.ptr*, step. num  :=  exec.aa.ptr*. 

step.nurp  f  i 

END;  £*  case  9  *) 


;  (*  set  s  to  zero  *) 

do-array  (exec.aa.ptr* .aa.iu, do-id j * . s.cnt  :=  0 ; 

:  (*  marx  status  as  ter)  *) 

rnarx.teiTip.ver Sion  ( #r ' , '  exec.aa.ptr , 
exec-st-ptr,  exec-trans.ptr ) ; 

:  (*  release  snort-term  loex,  if  necessary  *) 
BEGIN 

IF  do. array  (exec.aa.ptr*, aa.id.do.iaj ".s.cnt  < 
do-array  (exec.aa.ptr*. aa.ia.ao.iaj *,n.cnt 
ThEN 

release- leex  (exec.aa.Dtr* . aa.ia. ao.ia , 
exec.aa.ptr) ? 

(*  go  to  finisned  step'*) 
exec.aa.ptr* . step.num  : =  exec.aa.ptr * . 

step.r.urr,  +  i 

END ;  £  *  case  12  *) 

i  (*  time  out  nas  expired  *) 

IF  iocxed  (exec. aa.ptr" .aa.id. do-id)  then 
BEGIN 

enter. loex. queue  £ exec.aa.ptr ) ; 
detect-aeadiocx  (exec.aa.ptr, 

exec-st-ptr,  exec.trans.ptr ) 

END 

ELSE 

□  EG  1  N 

acou ire-1  ocx  cexec.aa.ptr*,aa.ia,jo.ic, 
exec.st.ptr , exec.aa.ptr ) ; 
exec.aa.ptr* . step. num  : =  exec.aa.ptr". 

step. num  -  ii 

END ; 

:  (*  output  vnnicn  aa  nas  finisned  and  update 
"finisned  quantities"  -  tnls  stepnum 
explicitly  used  in  ofoceoure  select. aa  *) 
BEGIN 

aKITELN  (audit,  'tne  aa  at  step  14  is  :'); 
*SITE  (audit,  exec-aa.ptr*,aa-id, 
'trans-site. init-site  :  x); 

*RITE  (audit, exec.aa.ptr*  .aa.id. 


trans-site. trans«num  :  2); 
write  C audit , exec-aa-ptr *  . aa.ld . st-run  :2'j; 
WRITE  Caudle ,exec-aa-Dtr*  .aa-ia.aa-nun.  ;k); 
wRlTELN (audit ) ? 

update-tinished-qty  vexec-st-ptr , 
exec.trans«ptr ) ; 

END;  (*  case  15  *) 

END  (*  case  *) 

END  (*  IF  THEN  *) 

ENO ;  (*  PROCEDURE  execute  *) 


PROCEDURE  commit  (com-tr-otr  :  ptr-trans); 


(*tnis  commits  a  transaction  arter  ail  temporary  versions 
nave  oeen  labied  tir).  Tne  temporary  versions  createc 
oy  tne  trans-  action  atomic  actions  are  aeietea,  a  nistorv 
message  is  sent  to  file  audit,  arid  tne  temporary  versions 
at  tne  data  objects  where  a  temporary  version  has  oeen 
deleted  are  re-labiea  t(r)  or  tc*)  as  necessary.*) 

VAR 

tvlptr  s  ptr-trans; 


C*  procs  for  commit  main  loop  *) 


■**  ) 


PROCEDURE  set-tv-tr  cptrtotv  :  otr-tv); 

(♦this  sets  a  temo  version  oased  on  a  committea  t(r)  temp 
ver  to  t(r).  otrtotv  points  to  tne  committing  terp  ver  *) 

VAR 

sett-tr-per  :  Ptr-trans: 
sett-st-ptr  :  otr-strans; 
sett-aa-ptr  :ptr-aa; 

BEGIN  (*reset  tv*) 

C*If  another  tv  is  based  on  tne  current  tv  then  reset  its 
status*) 

IF  ptrtotv*,nxt  <>  nil  then 

IF  ptrtotv*,nxt*,stat-f la  <>  ' r '  Then 
BEGIN  '(*1*) 

ptrtotv*,nxt*,stat-tia  :=  'r ' ; 

t ind.aa Cptrtotv*. nxt* .aa.ld, trans- site, lnit-site , 
’ptrtotv*«nxtk, a a-id. trans-site. trans-num, 
ptr to tv* ,  nxt* . aa-ia . st-num , 
ptrtotv* , nxt* . aa-ia . aa-num ,sett-aa-ptr, 


END; 


sett-st.ptr.sett.tr-ptr); 
sett.st.ptr*.aa.tr.dty  : = 

sett-st-ptr A .aa.tr.qty  +  l; 

IF  sett-sc.Dtr*«aa.tr.qty  > 

sett.sp-.ctr  A  .  aa-qti  1'Hs.n 

BEGIm 

sett.st.ptr* .aa.tr.qty  : = 

sett.st.ptr* . aa.qty ; 
atfITELN  (audit  f  'from  commit'); 
ftRiliLuN  Cajole , 

'In  mar«  temp  tne  aa  tr  qty'); 

*RIX tLN (audit , 'exceeaea  tne  aa  oty'); 
end; 

IF  sett-st.ptr* .aa.tr.qty  = 

sett.st.ptr * . aa.oty  TnEf- 
sett.tr.ptr" . st.tr.qty  : = 

sett.tr.ptr* . st.tr.aty  *  1; 
IF  sett.tr.ptr".st.tr-qty  > 

sett.tr.ptr * . st.qty  IdEn 

BEGIN 

sett.tr.ptr * . st-tr-qty  : = 

sett-.tr.otr*.st.qty; 
aRXTELN (audit , 'from  commit'); 
vkRITELN  (audit , 

'in  mar<  temp  tne  st  tr  oty'); 

*RI  fELN  (auait ,  'exceedea  tne  st  aty'); 

End; 

END;  ( ♦ 1 ♦ 3 
(♦reset  tv*} 


PROCEDURE  flnd.aa. commit ( find-aa.prr  :  ptr.aa); 

(*tnls  visits  each  atomic  action  of  a  committing  transaction 
and  deletes  the  tempory  version  created  oy  tne 
atomic  action*) 


donum  ;  integer; 
tviptr, ptrtotv  :  ptr-tv; 

BEGIN  (*tind  aa  commit*) 

IF  flnd.aa. ptr  <>  nil  THEN 
BEGIN  (*1*) 

f ind.tvt find.aa.pt r* .aa.la. trans.slte. init.site, 
tind-aa.ptr * , aa-id. trans.slte , trans-num , 
t ind-aa-ptr* .aa.ld , st.num , 
f ind.aa.ptr* .aa.id .aa.num, 
t ind-aa.ptr*.aa-id,d6-id,ptrtotv) ; 
aonum  s*  flnd.aa. ptr* .aa.ld, do. id; 


IF  ptrtotv  a  nil  then 
BEGIN  (*2*) 

(♦error,  could  not  find  the  tv*) 

i*RlTELN(audlt, 'commit  coula  not  tind  a  tv  =  =  >') 
*NITELN(audit,find.aa.ptr*.aa_id,trans.site. 
init.site  ; 4 , 

flnd-aa.ptr*,aa.ia.  trans-site,  t  ran  s.r.  urn  : <* 
t ind.aa.ptr* .aa.ia. st-num  :  4, 
flna.aa.ptr * . aa.la . aa-num  :  4)? 

WHITELn (audit ) 

END  (*2*) 

ELSE 

BEGIN  (*3*) 

(♦remove  this  tv's  conf  histories  from 
all  cn's*) 

rolloacK.cn  (ptrtotv*. aa.id.trans. site 
.init.site,  ptrtotv* .aa. id 
.trans.site. trans.num, 
u,  o,  true); 


C*If  tv  is  first  in  line*) 

IF  do.array (donum) *.tv.ptr  =  ptrtotv  Xhtw 

do.array laonum) *.tv.ptr  :=  ptrtotv*. nx 

ELSE 

(♦the  tv  is  imoedded  in  the  list  ot  tv's*) 
BEGIN  (*4«) 

tvlptr  :=  do-array laonum) * . tv.ptr; 
t»hXLE  tvlptr*. nxt  <>  ptrtotv  do 
tvlptr  ;s' tviDtr".nxt; 
tvlptr*. nxt  :=  ptrtotv* .nxt; 
end;  (*4*) 
set.tv.tr (ptrtotv) ; 

(♦reset  the  s-cnt  value  at  the  a.o.  ana 
release  the  iock  if  present*) 
set.s(ptrtotv*.aa.la,ao.ia) ; 

IF  do-arraylptrtotv*.aa-ia.do.la) *.s-cnt  < 
ao.array l ptrtotv*'. aa.id, do-ia j  *'.  n.cnt  THEN 
release. Iock l ptrtotv*. a a. id. do. id, 
rina.aa.ptr ) ; 


end;  (*3*) 

f ind.aa.commit ( f lnd.aa.pt r * . nxt ) ; 
ENO;  ( ♦ l ♦ ) 

END;  (♦find  aa  commit*) 


PROCEDURE  f lnd.st.commitC f ins-st.ptr  :  ptr.strans); 

(*tnls  visits  each  suotrans  in  a  committing  transaction  so 
tnat  each  atomic  action  can  De  visited*) 
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BEGIN  (*find  st  commit*) 

If  tins. st. ptr  <>  mi  then 

BEGIN  C*l*) 

£ ind.aa. commit  If ins-st-ptr* .aa.pt r) ; 
f lna.st.comroit  C  tlr.s.s  t-ptr*  .nxt ) ; 
end;  (*1*) 

( *f ind  st  commit*) 


END; 


(*  main  loop  commit  *) 

Begin 

WRIIELN (audit , 'committing  transaction  ====> 

com.tr. ptr*. trans-sice. init. site  ;  <*, 
com. tr-ptr". trans-site. trans.num  :  4); 
f lnd.st. commit  (com.tr.ptr* . st.ptr ) ; 

(*remove  tnis  transaction " rrom  the  structure  as  it  nas 
committed*) 

IF  com.tr.ptr  =  trans.ptr  imen 


trans.otr  :=  com.tr.ptr* .nxt 
ELSE 


BEGIN  (*i*) 

tviptr  s=  trans.ptr; 
while  tviptr*. nxt  <>  com-tr-ptr  ou 
tviptr  :=  tvlotr*. nxt? 
tviptr*, nxt  :=  com.tr.ptr*. nxt; 
end;  (*1*) 
end;  C  *commi t* ) 


PROCEDURE  glooal.sr; 


l*  tnis  procedure  is  called  in  the  main  program's  ao  forever 
loop  ana  will  insure  the  global  ser lalizaoiiity  of  the 
atomic  action  sequence  *) 


VAR 


temp.tr. ptr  :  ptr-trar.s; 
commit.flg,  global. fig  ; 
nil.cn.ptr  :  ptr.cn; 


boolean ; 


BEGIN 

temp.tr.ptr  :*  trans.ptr; 

WhlLE  temp.tr.ptr  <>  nil  DO 
BEGIN 

IF  temp.tr.ptr*. st.qty  = 

temp.tr.ptr* . 5t.fin.qty  ihln 
BEGIN 

IF  (temp.tr.ptr*. trans.cn. ptr  =  nil) 


and  (temp.tr. Ptr*. st-qty 

=  temp.tr-ptr*.st.tr.qty)  TntiJ 

BEGIN 

wRITELN  (audit,  'transaction  ', 

temp.tr-ptr * . trans.site . ini t-site , 
temp.tr-ptr* . trans.s it e, trans-nun: 3 , 
'  is  t(r)  from  glopal-sr'); 
commit  (temp-tr.ptr ) 

END  (*  IF  THEN  ») 

ELSE  BEGIN 

glocal.fig  ;=  true; 
commit. fig  :=  false; 
nii.cn.ptr  nil; 

detect. global- sr  (global. fig,  commit. fig, 

temp.tr. ptr,  nii.cn.ptr); 
IF  commit. fig  ana  i temp.tr. ptr * . st.oty 
=  temp.tr-ptr * , st.tr.aty j  then 
commit  (temp.tr-ptr) 

END  (*  IF  ELSE  *) 

end;  (*'if  then 
temp.tr-ptr  ; =  temp.tr-ptr*. nxt 
END  (*  WHILE  *) 

END; 


(*  tnis  program  is  an  adaptive  optimistic  concurrency 
controller  *) 

(*  main  program  *) 

BEGIN 

REWRITE  (audit)? 
rewrite  (data); 

RESET  (trans); 

RESET  (datadic); 

RESET  (dODj)? 

RESET  (runflle); 

(*  oulid  the  transaction  file  *) 
bldtx? 

wRITELN  (audit,  'tne  transaction  tile  *as  built')? 

(*  oulid  tne  data  dictionary  *) 
olddic; 

writeln  (audit,  'tne  data  dictionary  was  Duilt'); 

(*  ouild  the  data  object  database  *) 
blddo ; 

wRITELN  (audit,  'the  data  object  database  was  oulit'); 


(♦build  the  tv,ch  environment  it  required*) 

WRITELN ( 'do  you  want  to  reao  tv  or  cn,  y  or  n  ?'); 
WRITELN  (audit#  'tne  tv,cn  environment  was  ouiit'); 
readlncch) ; 

cnec*.stop(stoprun,cn) ; 

IF  Ccn  a  or  ten  =  'y')  then 

saventv; 
concntv; 
prselect? 

CLOSE(data) ; 

enter. time-delay  (time. delay ) ; 
wRUELM  (audit,  'time  delay  constant  enterec  : 
time-delay); 

enter. random-seed  (seed); 

wRITELN  (audit,  'random  seea  value  enterea  ;  ',seed)j 

(*  initialize  atomic  action  re-execution  list 
reexec.ptr  :=  nil; 

wRIIELN  ('Enter  a  carriage  return  to  cegin  execution  : 

REadln ; 

ch  :a  'y'; 
while  cn  s  'y'  do 

BEGIN 

NEw(purge-list-ptr ) ; 
purge.list.ptr* ,nxt  :=  nil? 
MEwCpurge-list-ptr^.bair-ptr) ; 

FOR  1  S*  i  TO  1000  DO' 

BEGIN 

(*  call  receive  message  *) 

(*  execute  eacn  atomic  action  and  related 
control  *) 

execute  (seed,time-aeiay) ; 

(*  insure  tnat  actions  are  serializable  *) 
giODai.sr; 

(*  this  code  disposes  ot  no  longer  needed 
conflict  hist  noaes  *) 
tvl-purge  :=  purge-list. ptr ; 
while  purge-lisc-ptr  <>  nil  do 
BEGIN 

purge-list-ptr  :=  purge. list-ptr* ,nx 
DISPOSE ( tvl-purge". pair-ptr) ; 
QISPOS£( tvl.purge) ; 
tvl-purge  :=  purge.iist.ptr ; 
end; 


New(purge.iist_ptr ) ? 
purge. list. ptr* ,nxt  :=  nil; 
new ( purge.iist.pt r* . Ddir.ptr ) ? 

END? 

IF  trans.ptr  =  nil  Then 
begin 

^HITELN  (audit, 

'All  transactions  are  finisnea 
wRITELN  ('All  transactions  are  tlnisned 
END? 

writeln  ('Continue  main  loop  .  ”y»  or  "n" 

READLN  (cn); 

cnecK.stop  (stoprun,  cn) 

END? 

REWRITE  (data)? 
prseiect? 

CLOSE  (data) 


end,  (*  program  algo.test  *) 


APPfcNUlX  C 


SAMPLE  SI-WULATiUw  LiurPUT 


the  transaction  file  was  ouilt 
tne  data  dictionary  was  ouilt 
the  data  object  aataoase  was  built 
tne  tv,ch  environment  was  built 
time  delay  constant  entered  : 
random  seed  value  entered  : 
locking  data  ooj  1 

locking  data  ooj  3 

locking  data  ooj  2 

locKing  data  ooj  4 

creating  a  temp  version 
12  112 

no  conflict  is  detected 
creating  a  temp  version 
112  13 

no  conflict  is  detected 
creating  a  temp  version 

13  114 

no  conflict  is  detected 
mar<«.temp«ver  marking  : 

13  114 

release  lock  tor  d.c, 
locking  data  ooj  4 
mark.temp«ver  marking  : 

12  112 
creating  a  temp  version 

14  114 

conflict  is  detected  at 
const  prec  rei  at  d.o, 
conflict  history  constructed  at 


the  value  of  "s"  was  set  to  s  1 
mark-temp.ver  marking  : 

112  13 

mark-temp.ver  marking  : 

14  114 

release  lock  for  d.o,  4 

release  lock  tor  a.o,  3 

locking  data  ooj  3 
creating  a  temp  version  for: 

11111 

no  conflict  is  detectea  at  l 

release  lock  for  d.o.  2 


fori 

at 

tor : 
at 

tor : 
at 


f  or : 


4 


entering 

this  aa 

in  t 

1  2 

2  1 

checking 

deadlock 

for 

12  2  1 

conflict 

is  detected 

conflict 

history 

cons 

creating 

a  temp  versi 

13  12 

3 

conflict 

is  detected 

const  prec  rel  at 

o .  o 

conflict 

history 

cons 

tne  valu 

e  of  "s" 

was 

entering 

this  aa 

in  t 

1  4 

1  2 

checking 

deadlock 

for 

14  12 

conflict 

is  detected 

conflict 

history 

cons 

locking 

data  opJ 

4 

mark.tem 

p.ver  marking 

1  1 

1  1 

1 

mark-tern 

p.ver  marking 

1  3 

1  2 

3 

ne  locK 
aa  : 
at 

tructed 
on  for: 

at 

• 

tructed 
set  to 
ne  lock 

aa  : 

at 

tructed 

: 


aueue 


1 

at 


aueue 


3 

at 


1 


3 


3 


release  lock  removed  from  lock  queue  : 

14  12 

rolloack.cn  is  removing  cr»"s  tor  rollback 
creating  a  temp  version  for: 

14  12  3 

conflict  is  detected  at  ; 

const  prec  rel  at  d.o,  3 

conflict  history  constructed  at  3 

the  value  of  "s'*  was  set  to  :  2 

mark-temp. ver  marking  : 

14  12  3 

release  lock  for  d.o,  3 

release  lock  removed  from  leek  queue  : 

12  2  1 


rollback. ch  is  removing  cn"s  for  rollback 
creating  a  temp  version  for: 

112  2  4 

conflict  is  detected  at  4 

const  prec  rel  at  d.o.  4 

conflict  history  constructed  at  4 

creating  a  temp  version  for: 

12  2  11 

conflict  is  detected  at  1 

const  prec  rel  at  d.o.  1 

conflict  history  constructed  at  1 

tne  value  of  "s"  was  set  to  :  1 

locking  data  obj  2 
mark-temp.ver  marking  : 


190 


12  2  11 

the  value  of  "s"  was  set  to  :  2 

entering  this  aa  in  tne  lock  queue 
1  3  1  '3 

checking  deadlock  for  aa  : 

13  13 

conflict  is  detected  at  1 

conflict  history  constructed  at  1 

locking  data  obj  3 

release  lock  removed  from  lock  queue  : 

13  13 

rollback.ch  is  removing  chHs  for  rolioack 
mark.temp.ver  marking  : 

112  2  4 

creating  a  temp  version  for: 

13  13  1 

conflict  is  detected  at  1 

const  prec  rel  at  a,o.  1 

conflict  history  constructed  at  l 

creating  a  temp  version  tor: 

1112  2 

conflict  is  detected  at  2 

const  prec  rel  at  o.o.  2 

conflict  nistory  constructed  at  2 

the  value  of  "s"  was  set  to  :  2 

release  lock  for  d.o.  4 

detect  non  sr  detected  non  sr 
cycle  is  : 

112  1  13  12 

13  11  14  11 

14  11  112  2 

restore. sr  is  restoring  sr 
entering  aetermine-roiloack 
rolling  back  atomic  action  : 

14  11 

rollback.ch  Is  removing  cn"s  for  rolioack 
rolling  back  temp  version  : 

14  11 

rolling  back  atomic  action  : 

13  11 

rollback.ch  is  removing  cn”s  for  rollback 
rolling  back  temp  version  : 

13  11 

rolling  back  atomic  action  : 

14  12 

rollback.ch  Is  removing  ch"s  for  rollback 
rolling  back  temp  version  : 

14  12 

rolling  oack  atomic  action  : 

112  2 

rollback.ch  Is  removing  ch"s  for  rolioack 
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APPLICATIONS  TO  LONG-LIVE.  .  <U)  NAVAL  POSTGRADUATE 
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UNCLASSIFIED 


F/G  5/1 


NL 


attempt  to  rolback  an  aa,tv  that  was  not  there 
112  2  4 

rolling  back:  atomic  action  : 

13  12 

rolloack.cn  is  removing  cnHs  tor  rollback 
rolling  back  temp  version  : 

13  12 

release  lock  for  d.o.  l 

rolling  back  atomic  action  : 

13  13 

rollback.ch  Is  removing  ch''s  for  rollback 
roiling  back  temp  version  : 

13  13 

locking  oata  obj  4 

the  value  of  "s"  was  set  to  :  1 

creating  a  temp  version  tor: 

14  114 

no  conflict  is  detected  at  4 

mark-temp. ver  marking  : 

14  114 

marK-.temp.ver  marking  : 

1112  2 
release  lock  for  d.o.  4 

locking  data  oDj  4 
entering  this  aa  in  the  lock  queue 

13  11 

checking  deadlock  tor  aa  : 

13  11 

conflict  is  detected  at  4 

conflict  history  constructed  at  4 

entering  this  aa  in  the  lock  queue 

14  12 

checking  deadlock  for  aa  : 

14  12 

conflict  is  aetected  at  3 

conflict  history  constructed  at  3 

creating  a  temp  version  for: 

12  12  3 

conflict  is  detected  at  3 

const  prec  rel  at  d.o.  3 

conflict  history  constructed  at  3 

creating  a  temp  version  tor: 

112  2  4 

conflict  Is  detected  at  4 

const  prec  rel  at  d.o.  4 

conflict  history  constructed  at  4 

release  lock  for  d.o.  2 

the  value  of  "s"  was  set  to  :  l 

entering  this  aa  in  the  lock  queue 
12  2  2 

checking  deadlock  tor  aa  : 
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4 


12  2  2 

conflict  is  detected  at  4 
conflict  history  constructed  at 
detect  non  sr  detected  non  sr 
cycle  is  : 

1111  12  2  1 

12  11  1112 

1311  122  2 

restore. sr  is  restoring  sr 
entering  determine. rollback 
detect  non  sr  detected  non  sr 
cycle  is  s 
1111  12  2  1 
12  11  1112 
rolling  back  atomic  action  s 
12  2  2 

roliback.ch  is  removing  cn"s  tor  rolloack 
rollback. aa  is  removing  aa  from  lock  q  : 

1  2  2  2 

rolloack.cn  is  removing  cn"s  tor  rollback 
attempt  to  rolback  an  aa.tv  that  was  not  there 
1  2  2  2  4 

rolling  back  atomic  action  ; 

13  11 

roliback.ch  is  removing  ch"s  tor  rolioacK 
roiiback.aa  is  removing  aa  from  lock  q' : 

13  11 

roliback.ch  is  removing  ch"s  for  rollnacx 
attempt  to  roloack  an  aa,tv  that  was  not  there 
13  114 

rolling  back  atomic  action  : 

12  2  1 

rollback.cn  is  removing  cn"s  for  rollback 
rolling  back  temp  version  : 

12  2  1 

rolling  oack  atomic  action  : 
i  l  1  i 

roliback.ch  is  removing  cn "  s  for  rolibac< 
roiling  back  temp  version  ; 

1111 

rolling  Dack  atomic  action  : 

1112 

roliback.cn  Is  removing  ch"s  for  rollback 
rolling  back  temp  version  j 
1112 

locking  data  obj  i 
mark.temp.ver  marking  : 

112  2  4 

the  value  of  "s"  was  set  to  :  1 

entering  tnis  aa  In  the  lock  queue 
1111 


checking  deadlock  for  aa  : 

1111 

no  conflict  is  detected  at  1 

release  lock  for  d.o.  4 

locking  data  ooj  4 
mark-temp. ver  marking  : 

12  12  3 

release  lock  removed  from  lock  queue  : 

14  12 

roliback.cft  is  removing  ch"s  for  rollback 
creating  a  temp  version  for: 

13  114 

conflict  is  detected  at  4 

const  prec  rel  at  o.o.  4 

contlict  nistory  constructed  at  4 

creating  a  temp  version  for: 

14  12  3 

conflict  is  detected  at  3 

const  prec  rel  at  d.o.  3 

conflict  nistory  constructed  at  3 

the  value  of  Hs"  was  set  to  :  2 

creating  a  temp  version  for: 

12  2  11 

no  conflict  is  detected  at  1 

mark.temp.ver  marking  : 

14  12  3 

release  lock  for  d.o.  3 

detect  non  sr  detected  non  sr 
cycle  is  : 

112  1  12  12 
12  12  14  12 

14  11  112  2 

restore. sr  is  restoring  sr 
entering  determine. roliaack 
rolling  back  atomic  action  : 

12  12 

rolloack.cn  is  removing  cn"s  tor  rolioacn 
rolling  Dack  temp  version  : 

12  12 

rolling  back  atomic  action  : 

112  1 

rollback.cn  is  removing  ch"s  for  rollback 
rolling  back  temp  version  : 

112  1 

rolling  back  atomic  action  : 

14  12 

rollback. ch  Is  removing  cn"s  for  rollback 
attempt  to  roiback  an  aa,tv  that  was  not  tnere 
14  12  3 

rolling  back  atomic  action  : 

112  2 
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rollback. ch  is  removing  cnMs  for  rolloack 
roiling  back  temp  version  : 

112  2 

release  lock  for  d«o.  4 

rolling  back  atomic  action  : 

13  11 

rollback.cb  is  removing  chHs  for  rollback 
attempt  to  rolback  an  aa,tv  that  was  not  there 

13  114 
locking  data  ooj  3 
mark-temp.ver  marking  s 

12  2  11 
locking  data  obj  4 
entering  this  aa  in  the  lock  queue 

14  12 

cnecking  deadlock  tor  a a  : 

14  12 

no  conflict  is  detected  at  3 

creating  a  temp  version  for: 

13  114 

conflict  is  detected  at  4 

const  prec  rel  at  d.o.  4 

conflict  history  constructed  at  4 

the  value  of  Ms"  was  set  to  :  1 

mark.temp.ver  marking  : 

13  114 

release  lock  for  d.o,  4 

entering  this  aa  in  the  lock  queue 
112  1 

checking  deadlock  for  aa  : 

112  1 

conflict  is  detected  at  3 

conflict  history  constructed  at  3 

release  lock  removed  from  lock  queue  : 

1111 

rolloack. ch  is  removing  ch"s  tor  rollback 
creating  a  temp  version  for: 

12  12  3 

no  conflict  is  detected  at  3 

creating  a  temp  version  for: 

11111 

conflict  is  detected  at  1 

const  prec  rel  at  d.o.  1 

conflict  history  constructed  at  1 

entering  this  aa  in  the  lock  queue 
1  3  12 

cnecking  deadlock  for  aa  : 

13  12 

conflict  is  detected  at  3 

conflict  history  constructed  at  3 

tne  value  of  "s"  was  set  to  :  0 
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mark.temo.ver  marking  : 

12  12  3 

release  lock  removed  from  lock  queue  ; 

14  12 

rolloack.cn  Is  removing  cn"s  xor  rollback 
creating  a  temp  version  for: 

14  12  3 

conflict  is  detected  at  3 

const  prec  rel  at  d.o.  3 

conflict  history  constructed  at  3 

tne  value  of  Ms"  was  set  to  :  l 

mark-temp. ver  marking  : 

14  12  3 

release  Iock  removed  from  lock  oueue  : 
112  1 

rolloack.cn  is  removing  ch"s  for  rollback 
locking  data  ooj  4 
creating  a  temp  version  for: 

112  13 

conflict  is  detected  at  3 

const  prec  rel  at  d.o.  3 

conflict  nistory  constructed  at  3 

tne  value  of  "s"  was  set  to  :  2 

creating  a  temp  version  for: 

1  2  2  2  4 

conflict  is  detected  at  4 

const  prec  rel  at  d.o.  4 

conflict  history  constructed  at  i 

tne  value  of  Ms"  was  set  to  :  2 

mark-temp.ver  marking  : 

1  l  1  l  l 

release  lock  for  d.o.  1 

mark-temo.ver  marking  ; 

112  13 

locking  data  ooj  2 
mark-temp.ver  marking  : 

1  2  2  2  4 

release  lock  removed  from  lock  queue  : 

13  12 

rollback.cn  Is  removing  cn"s  tor  rollback 
release  lock  for  d.o.  4 

detect  non  sr  detected  non  sr 
cycle  Is  : 

12  12  14  12 

13  11  12  2  2 

14  11  13  11 

restore.sr  Is  restoring  sr 
entering  determine. rollback 
rolling  oack  atomic  action  : 

14  12 

rollback.cn  is  removing  ch"s  for  rollback 


i  9b 


rolling  back  cemp  version  : 

14  12 

rolling  pack  atomic  action  : 

12  12 

rollbacK.cn  Is  removing  cn"s  tor  rollbacK 
rolling  oac<  temp  version  : 

12  12 

rolling  bacK  atomic  action  : 

112  1 

rollbacK.cn  is  removing  cn"s  for  rollbacK 
attempt  to  roloacK  an  aa,tv  that  was  not  there 
112  13 

creating  a  temp  version  for: 

1112  2 

conflict  is  detected  at  2 

const  prec  rel  at  a.o,  2 

conflict  history  constructed  at  2 

tne  value  of  "s"  was  set  to  :  l 

creating  a  temp  version  for: 

13  12  3 

no  conflict  is  detecteo  at  3 

entering  this  aa  in  tne  lock  queue 
14  12 

cnecklng  deaalock  tor  aa  : 

14  12 

conflict  is  detected  at  3 

conflict  history  constructed  at  3 

detect  non  sr  detected  non  sr 
cycle  is  : 

13  12  14  12 

14  11  13  11 

res tore. sr  is  restoring  sr 
entering  determine. rollback 
rolling  back  atomic  action  : 

14  12 

rolloacK.cn  is  removing  cr."s  for  rollback 
rolioacK-aa  Is  removinq  aa  from  lock  q  : 

14  12 

rollbacK.ch  Is  removing  cnns  for  rollback 
attempt  to  rolback  an  aa,tv  that  was  not  there 
14  12  3 

release  lock  for  d.o.  3 

rolling  back  atomic  action  : 

13  12 

rollbacK.ch  is  removing  ch"s  for  roliback 
rolling  back  temp  version  : 

13  12 

locking  data  ooj  3 
creating  a  temp  version  for: 

14  12  3 

no  conflict  Is  detecteo  at  3 
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mark.temp.ver  marking  : 

14  12  3 

maric-temo.ver  marking  : 
1112  2 


release  lock  for  o.o.  i 

release  lock  cor  d.o,  3 

committing  transaction  ====>  1  <* 

rollback.ch  is  removing  cn"s  for  commit 
tne  value  of  "s"  was  set  to  :  1 

release  lock  for  d.o.  4 

rollback-cn  is  removing  cn"s  for  commit 
tne  value  of  "s”  was  sec  to  :  o 

release  lock  for  o.o.  3 

locking  aata  ODj  3 
entering  this  aa  in  tne  loc*.  Queue 
13  12 


cnecking  deadlock  for  aa  : 

13  12 

no  conflict  is  detected  at  3 

creating  a  temp  version  for: 

12  12  3 

no  conflict  is  detected  at  3 

entering  tnis  aa  in  tne  lock  queue 
112  1 


cnecking  deaalock  tor  aa  : 

112  1 

conflict  is  detected  at  3 
conflict  history  constructed  at 
mark.temp.ver  marking  : 

12  12  3 

release  lock  removed  from  lock  Queue  : 


3 


13  12 

rollback-cn  is  removing  ch"s  for  rollback 
creating  a  temp  version  for: 

13  12  3 

conflict  is  detected  at  3 

const  prec  rei  at  d.o.  3 

conflict  history  constructed  at 
tne  value  of  "s"  was  set  to  :  1 

mark.temp.ver  marking  : 

13  12  3 

release  lock  removed  from  lock  queue  : 


3 


112  1 

rollback.cn  is  removing  cn"s  for  rollback 
locking  data  obj  1 
creating  a  temp  version  for: 

112  13 

conflict  is  detected  at  3 
const  prec  rel  at  d.o.  3 

conflict  nistory  constructed  at  i 

tne  value  of  Hs"  was  set  to  :  2 
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1 


1 


creating  a  temp  version  for: 

13  13  1 

conflict  is  detected  at  1 
const  prec  rel  at  d.o. 
conflict  history  constructed  at 
tne  value  of  "s”  *as  set  to  :  l 

mark-teiTip.ver  marking  : 

13  13  1 

release  lock  for  d,o.  1 

detect  non  sr  detected  non  sr 
cycle  is  : 

1111  1  3  l  3 

12  2  1  1  i  l  l 

13  11  12  2  2 

restore. sr  Is  restoring  sr 
entering  determine. rollback 
rolling  oack  atomic  action  : 

1111 

rollbacK.cn  is  removing  cn"s  for  rollback 
rolling  bac<  temp  version  : 

1111 

rolling  fcac<  atomic  action  : 

12  2  1 

rolibacK.cn  is  removinq  cnMs  for  rollbac< 
rolling  bacK  temp  version  : 

12  2  1 

rolling  Dac<  atomic  action  : 

1112 

rolloacK.cn  is  removing  cn"s  for  rolioacx 
rolling  back  temp  version  : 

1112 

rolling  bacK  atomic  action  : 

13  13 

rollDacK.cn  is  removing  cn"s  for  rolioacK 
attempt  to  rolback  an  aa,tv  tnat  was  not  ther 
13  13  1 

rolling  DacK  atomic  action  j 
12  2  2 

rolloacK.cn  is  removinq  cn"s  for  rolioacK 
rolling  bacK  temp  version  : 

12  2  2 

locKing  data  ooj  l 
marK.temp.ver  marKlng  : 

112  13 

entering  this  aa  in  tne  lock  Queue 
13  13 

cnecklng  oeaoiock  for  aa  : 

13  13 

no  conflict  is  detected  at 
release  lock  tor  d.o, 
creating  a  temp  version  for: 


1 

3 


1 


i  1  1  1  1 

no  conflict  is  detected  at 
mark.teme.ver  marking  : 

11111 
locking  data  oej  4 
release  lock  removed  from  lock  cueue  : 

13  13 

roiioack.cn  is  removing  eh"s  tor  rollback 
creating  a  temp  version  for: 

13  13  1 

conflict  is  detected  at  1 
const  prec  rel  at  d.o,  l 

conflict  history  constructed  at  1 

entering  this  aa  in  the  lock  aueue 
12  2  1 

cnecking  deadlock  tor  aa  : 

12  2  1 


conflict  is  detected  at  1 
conflict  history  constructed  at  l 

detect  non  sr  detected  non  sr 
cycle  is  ; 

12  12  13  12 

13  13  12  2  1 

restore. sr  is  restoring  sr 
entering  determine.rollDdck 
rolling  back  atomic  action  : 

12  2  1 

rolloack.cn  is  removing  ch"s  tor  rollback 
rollcack.aa  is  removing  aa  trom  lock  a  : 

12  2  1 

rolleack.cn  is  removing  ch*s  for  rollback 
attempt  to  rolfcack  an  aa,tv  tnat  was  not  tnere 
12  2  11 
release  lock  for  d.o.  1 

rolling  back  atomic  action  *  • 

13  13 

iollback.cn  is  removing  cn"s  tor  rollback 
rolling  back  temp  version  : 

13  13 


restore. sr  is  restoring  sr 
rolling  back  atomic  action  ; 

12  2  1 

rollback.cn  is  removing  cn"s  for  rollback 
attempt  to  roiback  an  aa,tv  that  was  not  tnere 
12  2  11 
roiling  back  atomic  action  : 

13  13 


rollback.cn  is  removing  cn"s  for  rollback 
attempt  to  roioack  an  aa.tv  tnat  was  not  tnere 
13  13  1 

locking  data  oej  l 
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1 


creating  a  temp  version  for: 

12  2  11 

conflict  is  detected  at  1 
const  prec  rel  at  a.o.  l 

conflict  history  constructed  at 
creating  a  temp  version  for: 

112  2  4 

conflict  is  detected  at  4 

const  prec  rel  at  d.o,  4 

conflict  history  constructed  at 
tne  value  of  Ns”  was  set  to  :  1 

the  value  of  "s"  was  set  to  :  l 

locking  data  ooj  2 
entering  this  aa  in  tne  lock  queue 
1  3  1  3 

checking  deadlock  for  aa  : 

13  13 

conflict  is  detectea  at  1 

conflict  history  constructeo  at 
mark-temp. ver  marking  : 

112  2  4 

release  lock  for  a.o,  4 

mark. temp. ver  marking  : 

12  2  11 

release  lock  removea  from  lock  aueue 
13  13 


l 


rolicack.cn  is  removing  cn"s  tor 
creating  a  temp  version  for: 

13  13  1 

conflict  is  aetecteo  at  1 

const  prec  rel  at  a.o. 
conflict  history  constructed  at 
tne  value  of  "s"  was  set  to  : 
mar*. temp. ver  marking  : 

13  13  1 

creating  a  temp  version  for: 

1112  2 

conflict  is  aetectea  at  2 

const  prec  rel  at  d.o. 
conflict  history  constructed  at 
release  lock  for  d.o.  l 

detect  non  sr  detected  non  sr 
cycle  is  : 

1111  12  2  1 

12  12  112  1 
restore. sr  is  restoring  sr 
entering  determine.rolioack 
rolling  back  atomic  action  : 

12  2  1 


rollback 


1 

2 


1 


2 


2 


rollback.cn  Is  removinq  cn"s  tor  rollback 
rolling  oac<  temp  version  : 
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12  2  1 

rolling  Dae*  atomic  action  : 

1111 

roliback.cn  Is  removing  cn"s  tor  rollback 
rolling  oack  temp  version  : 

1111 

release  lock  for  d.o.  2 

rolling  back  atomic  action  : 

1112 

rollback.cn  is  removing  cn"s  tor  rollback 
roiling  oack  temp  version  : 

1112 

rolling  oack  atomic  action  : 

13  13 

rollback.cn  is  removing  cn"s  tor  rollback 
attempt  to  rcloacic  an  aa,tv  that  was  not  tnere 
13  13  1 

locking  data  ooj  1 
creating  a  temp  version  for: 

12  2  11 

no  conflict  Is  detected  at  1 
marK.temp.ver  marking  : 

12  2  11 

entering  this  aa  in  the  lock  queue 
1  3  13 

cnecklng  deadlock  tor  aa  : 

13  13 

conflict  is  detected  at  1 

conflict  history  constructed  at  l 

release  'lock  removed  from  lock  Queue  : 


13  13 

rollfcack.cn  Is  removing  cn"s  for 
locking  data  ooj  4 
creating  a  temp  version  for: 

13  13  1- 

conflict  is  detected  at  1 

const  prec  rei  at  d.o. 
conflict  history  constructed  at 
the  value  of  "s"  was  set  to  : 
creating  a  temp  version  for: 

1  2  2  2  4 

conflict  is  detected  at  4 

const  prec  rel  at  o.o. 
conflict  history  constructed  at 
mark.temp.ver  marking  : 

13  13  1 

release  lock  for  d.o,  1 

the  value  of  "s"  was  set  to  : 
detect  non  sr  detected  non  sr 
cycle  is  : 

112  2  12  2  2 


rollback 
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12  12  13  12 

13  11  112  2 

restore.sr  Is  restoring  sr 
entering  determine. rolloack 
rolling  Dack  atomic  action  : 

13  12 

rollback.cn  is  removing  ch"s  for  rollback 
roiling  back  temp  version  : 

13  12 

rolling  back  atomic  action  : 

12  12 

rollback.cn  is  removing  cn"s  for  rolloack 
rolling  back  temp  version  : 

12  12 

rolling  oacx  atomic  action  : 

13  13 

rolloack.cn  is  removing  cn"s  for  rolioacic 
rolling  back  temp  version  j 
13  13 

rolling  Dack  atomic  action  ; 

112  1 

roliback.cn  is  removmq  cn"s  for  rolloack 
attempt  to  rolback  an  aa,tv  tnat  '♦as  not  tnere 
112  13 

rolling  back  atomic  action  : 

112  2 

rollback.cn  is  removing  cn"s  for  rollback 
rolling  oack  temp  version  : 

112  2 

release  lock  for  d.o,  4 

rolling  back  atomic  action  j 
12  2  2 

roliback.cn  is  removing  cn"s  for  rollback 
attempt  to  rolback  an  aa,tv  that  was  not  tnere 
1  2  2  2  4 

locking  data  ooj  3 

creating  a  temp  version  for; 

1  3  1  2  3 

no  conflict  is  detected  at  3 

mark-temp. ver  markinq  : 

13  12  3 

release  lock  for  d.o.  3 

locking  data  ooj  4 

locking  data  ooj  3 

locking  data  ooj  l 

creating  a  temp  version  for: 

13  13  1 

conflict  is  detected  at  1 
const  prec  rel  at  d.o,  1 

conflict  nistory  constructed  at  1 

tne  value  of  "s"  was  set  to  ;  0 
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mark-temp.ver  marking  s 
13  13  1 

release  lock  tor  d.o.  1 

entering  this  aa  in  tne  loc<  queue 
12  12 

cnecking  deadlock  tor  aa  : 

12  12 

conflict  is  detected  at  3 

conflict  history  constructed  at  i 

detect  non  sr  detected  non  sr 
cycle  is  : 

12  2  1  13  13 

13  12  12  12 

restore. sr  is  restoring  sr 
entering  determine. rollback 
rolling  back  atomic  action  i 

12  12 

rolltack-.cn  is  removing  cnMs  for  rollback 
rollback. aa  Is  removing  aa  from  lock  g  : 

12  12 

rolloack.cn  is  removing  ch"s  for  rollback 
attempt  to  roltack  an  aa,tv  that  was  not  tnere 

12  12  3 

rolling  pack  atomic  action  s 

13  12 

rollback.cn  is  removing  cn"s  for  rollback 
rolling  back  temp  version  : 

13  12 

rolling  back  atomic  action  : 

13  13 

rollback.cn  Is  removing  cn"s  for  rollback 
rolling  back  temp  version  : 

13  13 

creating  a  temp  version  for: 

112  13 

no  conflict  is  detected  at  3 

creating  a  temp  version  for: 

1  2  2  2  4 

conflict  is  detected  at  4 

const  prec  rel  at  a.o,  4 

conflict  history  constructed  at  4 

locking  data  obj  i 
entering  this  aa  in  the  lock  aueue 

13  12 

cnecking  deadlock  tor  aa  : 

13  12 

conflict  is  detected  at  3 

conflict  history  constructed  at  3 

tne  value  of  "s"  was  set  to  :  1 

mark. temp. ver  marking  : 

112  13 
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release  lock  removed  from  lock  queue  : 

13  12 

rollbacK.cn  Is  removinq  ch"s  for  rolibacK 
creating  a  temp  version  for: 

13  12  3 

conflict  is  aetected  at  3 

const  prec  rel  at  a.o.  3 

conflict  nistory  constructed  at  3 

tne  value  of  "s"  was  set  to  :  1 

mark-temp. ver  marking  : 

13  12  3 

release  Iock  for  d.o.  3 

irarK.temp.ver  marking  : 

12  2  2  4 

locking  data  ocj  3 
creating  a  temp  version  tor: 
lllll 

conflict  is  aetected  at  1 

const  prec  rel  at  d.o.  l 

conflict  nistory  constructed  at  l 

release  lock  for  d.o.  4 

entering  this  aa  in  the  lock  queue 
1  3  l  '  3 

cnecklng  deadlock  for  aa  : 

13  13 

conflict  is  detected  at  1 

conflict  nistory  constructed  at  1 

tne  value  of  “s"  was  set  to  :  o 

mark.teino.ver  marking  : 

lllll 
locking  data  ooj  4 
creating  a  temp  version  for: 

112  2  4 

conflict  is  detected  at  4 

const  prec  rel  at  a.o,  4 

conflict  history  constructed  at  4 

tne  value  of  "s"  was  set  to  :  2 

creating  a  temp  version  for: 

12  12  3 

conflict  is  detected  at  3 

const  prec  rel  at  d.o,  3 

conflict  nistory  constructed  at  3 

mark.temp.ver  marking  : 

112  2  4 

release  lock  removed  from  lock  queue  : 

13  13 

rolloack.cn  is  removing  cn"s  for  roiioack 
creating  a  temp  version  for: 

13  13  1 

conflict  is  detected  at  1 

const  prec  rel  at  d.o.  1 
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1 


conflict  history  constructed  at 
the  value  of  "s”  *as  set  to  : 
the  value  of  "s"  was  set  to  : 
marK-temp.ver  marKing  : 

13  13  1 

release  iock  for  a.o,  l 

detect  non  sr  detected  non  sr 
cycle  Is  : 

112  1  13  12 

12  2  1  1111 
13  11  12  2  2 

restore. sr  Is  restoring  sr 
entering  determine. rollDacK 
rolling  oacK  atomic  action  : 
llli 

rolibacK.cn  is  removing  ch^s  for 
rolling  sac<  temp  version  : 
1111 

rolling  bacK  atomic  action  : 

12  2  1 

rolibacK.cn  is  removing  cn"s  for 
rolling  oac<  temp  version  * 

12  2  1 

rolling  oacK  atomic  action  i 
13  13 

rolibacK.cn  is  removing  cn"s  tor 
attempt  to  rolbacK  an  aa, tv  that 
l  3  1  3  1 

rolling  bacK  atomic  action  : 

12  2  2 

rollbacK.cn  is  removing  ch"s  for 
rolling  bacK  temp  version  s 
12  2  2 


1 

2 


rolibacK 


rollbacK 


rollback 
was  not  tnere 


rolibacx 


release  Iock  for  d.o.  4 

rolling  bacK  atomic  action  ; 

112  2 

rollbacK.cn  Is  removing  cn"s  for  rolibacK 
attempt  to  rolbacK  an  aartv  tnat  was  not  tnere 
112  2  4 

locKlng  data  obj  i 

marK.temp.ver  mar<ing  : 

12  12  3 

release  Iock  for  d,o.  3 

entering  this  aa  in  the  Iock  queue 

13  13 

cnecKlng  deadlock  for  aa  : 

13  13 

no  conflict  is  detected  at  1 

creating  a  temp  version  tor: 

11111 

no  conflict  Is  detected  at  1 
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mark. temp. vex  marking  : 

11111 

release  lock  removed  from  lock  queue  : 

13  13 

rollback. ch  is  removing  cnHs  for  rollback 
conflict  is  detected  at  1 
const  prec  rel  at  a.o.  1 

creating  a  temp  version  for: 

13  13  1 

conflict  history  constructed  at  l 

locking  data  ooj  4 
the  value  of  "s"  was  set  to  :  l 

mark.temp.ver  marking  : 

13  13  1 

release  lock  for  d.o.  1 

locking  data  ooj  1 
creating  a  temp  version  tor: 

112  2  4 

conflict  is  detected  at  4 

const  prec  rel  at  d.o.  4 

conflict  history  constructed  at  4 

locking  data  ocj  2 

the  value  of  "s"  was  set  to  :  l 

mark. temp. ver  marking  : 

112  2  4 

creating  a  temp  version  for: 

1112  2 

conflict  is  detected  at  2 

const  prec  rel  at  d.o.  2 

conflict  nistory  constructed  at  2 

release  lock  for  d.o,  4 

tne  value  of  "s"  was  set  to  :  1 

mark-temp.ver  marking  : 

1112  2 
detect  non  sr  detected  non  sr 
cycle  is  : 

112  1  13  12 

13  11  112  2 

restore.sr  Is  restoring  sr 
entering  determine.rolloack 
rolling  oack  atomic  action  : 

112  2 

roliback.cn  is  removing  cn"s  for  rollback 
rolling  back  temp  version  : 

112  2 

rolling  Dae*  atomic  action  : 

13  11 

rollback.cn  Is  removing  cn"s  for  rollback 
rolling  back  temp  version  : 

13  11 

rolling  back  atomic  action  : 


13  12 

rollbacK.ch  is  removing  cnMs  for  rolxtacK 
rolling  bacK  temp  version  : 

13  12 

rolling  oac<  atomic  action  : 

13  13 

rollbactc.cn  is  removing  cn"s  for  rollbacK 
rolling  bacK  temp  version  : 

13  13 

locKlng  data  obj  4 
creating  a  temp  version  for* 

12  2  11 

conflict  is  detected  at  1 
const  prec  rei  at  d.o.  l 

conflict  nlstory  constructed  at  1 

release  Iock  for  d.o,  2 

the  value  of  "s"  was  set  to  :  1 

entering  this  aa  in  tne  lock  queue 
13  11 

cnecKing  deadlocK  for  aa  : 

13  11 

no  conflict  Is  detected  at  4 

creating  a  temp  version  for: 

112  2  4 

no  conflict  is  detected  at  4 

marK.temp.ver  marKing  : 

12  2  11 
release  Iock  for  d.o,  1 

marK.temp.ver  marKlng  : 

112  2  4 

release  Iock  removed  from  Iock  aueue  : 

13  11 

rolieacK.cn  Is  removing  ch''s  for  rollbacK 
creating  a  temp  version  for: 

13  114 

conflict  Is  detected  at  4 
const  prec  rel  at  d.o.  4 

conflict  history  constructea  at  4 

detect  non  sr  detected  non  sr 
cycle  is  : 

112  1  12  12 
12  11  1112 
restore. sr  is  restoring  sr 
entering  determine. rollbacK 
rolling  bacK  atomic  action  : 

1112 

rollbacK.cn  is  removing  cn"s  for  rollbacK 
rolling  bacK  temp  version  : 

1112 

rolling  bacK  atomic  action  : 

12  11 
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rollcactc.cn  Is  removing  ch"s  tor 
rolling  back  temp  version  : 

12  11 

rolling  oacic  atomic  action  : 

12  12 

rollback.cn  is  removing  cnMs  for 
rolling  back  temp  version  : 

12  12 

looting  data  obj  2 

tne  value  of  "s"  was  set  to  : 

mark.temp.ver  marking  : 

11114 
release  lode  for  d.o.  4 

looting  data  ooj  1 
creating  a  temp  version  for: 

13  12  3 

conflict  is  detected  at  1 
const  prec  rel  at  d.o. 
conflict  nistory  constructed  at 
tne  value  of  "s"  was  set  to  : 
creating  a  temp  version  for: 
1112  2 


rolipaot 


rolibaoc 


1 


3 

1 


1 


no  conflict  is  detected  at  2 
entering  tnis  aa  in  tne  loot  queue 
12  11 


cneocing  aeaaiooc  for  aa  : 

12  11 

conflict  is  detected  at  2 

conflict  history  constructed  at 
mark.temp.ver  marking  : 

1  3  1  2  1 

release  lock  tor  d.o.  3 

locking  data  obj  l 
creating  a  temp  version  tor: 

13  13  1 

conflict  is  detected  at  1 

const  prec  rel  at  a.o. 
conflict  history  constructed  at 
locking  data  obj  4 
tne  value  of  "s"  was  set  to  : 
mark.temp.ver  marking  : 
1112  2 


1 

2 


2 


1 


mark.temp.ver  marking  : 

13  13  1 

release  lock  for  d.o,  1 

release  lock  removed  from  lock  queue  : 

12  11 

rolloack.cn  is  removing  ch"s  for  rollback 
transaction  l  l  is  ter)  from  giooal.sr 

committing  transaction'  ssss>  1  i 
rolloack.cn  is  removing  ch"s  for  commit 
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0 


the  value  of  "s"  was  set  to  : 
release  lock  for  d.o.  1 

rollback.cn  is  removing  ch"s  for  < 
the  value  of  "s"  was  set  to  : 
release  lock  tor  d.o,  2 

rollback.ch  is  removing  eh"s  for 
the  value  of  "s"  was  set  to  i 
release  lock  for  d.o.  3 

roilback.cn  is  removing  ch"s  for 
tne  value  of  "s'*  was  set  to  : 
release  lock  tor  d.o.  4 

creating  a  temp  version  tors 
1  2  2  2  4 

conflict  is  detected  at  4 

const  prec  rel  at  d.o. 
conflict  history  constructed  at 
creating  a  temp  version  tors 
12  112 

no  conflict  is  detected  at  2 

tne  value  of  "s"  was  set  to  s 
mark.temp.ver  marking  s 
12  112 
mark.temp.ver  marking  s 
1  2  2  2  4 

release  lock  for  d.o.  4 

detect  non  sr  detected  non  sr 
cycle  is  s 

12  2  1  13  13 

13  11  12  2  2 

restore-sr  is  restoring  sr 
entering  determine. rolloack 
rolling  back  atomic  action  ; 

12  2  2 

rollback.cn  is  removing  cnHs  for 
rolling  back  temp  version  s 
12  2  2 

roiling  bacie  atomic  action  ; 

13  11 

rollback.cn  is  removing  cn"s  tor 
rolling  pack  temp  version  s 
13  11 

rolling  back  atomic  action  : 

13  12 

rollback.cn  is  removing  cn"s  tor 
rolling  back  temp  version  s 
13  12 

rolling  back  atomic  action  : 

1  3  i  3 

rolloack.cn  is  removing  cn"s  for 
rolling  cack  temp  version  : 

13  13 


commit 

o 

commit 

0 

commit 

o 


rollback 


rollback 


rollback 


rollback 
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locking  data  ooj  4 
release  lock  tor  a.o,  2 

locking  data  ooj  3 
entering  tnis  aa  in  the  lock  aueue 
1  3  11 

checking  deadlock  for  aa  : 

13  11 

no  conflict  is  detected  at  4 
creating  a  temp  version  for: 

12  12  3 

no  conflict  is  detected  at  3 

creating  a  temp  version  for: 

1  2  2  2  4 

no  conflict  is  detectea  at  4 

mark-temp.ver  markino  : 

12  12  3 

mark-temp.ver  marking  : 

1  2  2  2  4 

release  lock  for  d.o.  3 

release  Iock  removed  from  lock  queue  : 


13  11 

rolioack.cn  is  removing  ch"s  for  rolioacx 
creating  a  temp  version  for: 

13  114 

conflict  is  detected  at  4 
const  prec  rel  at  d.o.  4 

conflict  nistory  constructed  at  4 

the  value  of  Hs"  was  set  to  :  1 

transaction  l  2  is  t(r)  from  giooai.sr 
committing  transaction  ===s>  1  2 

rollback.cn  is  removing  ch"s  for  commit 
the  value  of  "s"  was  set  to  :  0 

release  lock  for  d.o,  2 

rollback.ch  is  removing  ch"s  tor  commit 
the  value  of  "s"  was  set  to  :  0 

release  lock  for  d.o.  3 

rollback.ch  is  removing  ch"s  for  commit 
the  value  of  "s"  was  set  to  :  0 

release  lock  for  a.o.  1 

rollback.ch  is  removing  ch"s  for  commit 
tne  value  of  "s"  was  set  to  :  0 

release  lock  for  d.o.  4 

mark-temp. ver  marking  : 

13  114 

release  lock  for  d.o.  4 

locking  data  ob}  3 
creating  a  temp  version  for: 

13  12  3 

no  conflict  is  detected  at  3 
mark. temp. ver  marking  : 

13  12  3 
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release  lock  for  d,o. 
locking  data  obj  1 
creating  a  temp  version  for: 

13  13  1 
no  conflict  is  detected  at  1 
mark-temp. ver  marking  : 

13  13  1 

release  lock  for  d.o,  1 

transaction  1  3  is  tlr)  from  giopai.sr 

committing  transaction  ====>  l  3 
roliPack.cn  is  removing  chHs  tor  commit 
tne  value  of  "s”  was  set  to  :  o 

release  lock  for  d.o.  4 

rollback.cn  is  removing  ch"s  for  commit 
tne  value  of  "s"  was  sec  to  :  o 

release  lock  for  d.o.  3 

rollback.cn  is  removing  cn"s  for  commit 
tne  value  of  "s"  was  set  to  :  0 

release  lock  for  d.o.  1 

ah  transactions  are  finished  i:j 
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